Add parser method: all

Changes

@@ -1,6 +1,7 @@
 Revision history for PICA::Data
 
 {{$NEXT}}
+    - Add parser method: all
 
 2.10 2023-08-09T14:01:25Z
     - Add PICA Import format parser (#129)

lib/PICA/Parser/Base.pm

@@ -79,6 +79,17 @@ sub next {
     return;
 }
 
+sub all {
+    my ($self) = @_;
+    my @records;
+
+    while (my $record = $self->next) {
+        push @records, $record;
+    }
+
+    return \@records;
+}
+
 1;
 __END__
 
@@ -103,6 +114,8 @@ PICA::Parser::Base - abstract base class of PICA parsers
     my $parser = PICA::Parser::XML->new( $filename, start => 1 );
     ...
 
+    my $records = $parser->all;
+
 =head1 DESCRIPTION
 
 This abstract base class of PICA+ parsers should not be instantiated directly.
@@ -151,13 +164,17 @@ reference to a Unicode string. L<PICA::Parser::XML> also detects plain XML strin
 
 =head2 next
 
-Reads the next PICA+ record. Returns a L<PICA::Data> object (that is a blessed
+Read the next PICA+ record and return a L<PICA::Data> object (that is a blessed
 hash with keys C<record> and optional C<_id>).
 
 =head2 count
 
 Get the number of records read so far.
 
+=head2 all
+
+Read all records and return as array reference.
+
 =head1 SEE ALSO
 
 See L<Catmandu::Importer::PICA> for usage of this module in L<Catmandu>.

t/20-parser.t

@@ -17,6 +17,10 @@ is $first->{record}->[6]->[7], '柳经纬主编;', 'Unicode';
 is_deeply $first->{record}->[11],
     ['145Z', '40', 'a', '$', 'b', 'test$', 'c', '...'], 'sub field with $';
 
+my $all = pica_parser(plain => 't/files/pica.plain')->all;
+is_deeply $all->[0], $first, 'read all';
+is @$all, 2, 'read all';
+
 foreach my $type (qw(Plain Plus JSON Binary XML PPXML PIXML Import)) {
     my $module = "PICA::Parser::$type";
     my $file   = 't/files/pica.' . lc($type);