lib/Sack/From.pm

package Sack::From;

use warnings;
use strict;

use Data::Dump qw(dump);

use lib "/srv/webpac2/lib/";
use WebPAC::Input::ISI;

$WebPAC::Input::ISI::subfields = undef; # disable parsing of subfields

sub shard {
        my $self = shift;

        my $input = WebPAC::Input::ISI->new( @_ );

        warn "got ", $input->size, " records for ", dump @_;

        my $data;

        foreach my $pos ( 1 .. $input->size ) {
                push @$data, $input->fetch_rec( $pos );
        }

        return $data;
}

1;
1	package Sack::From;
2
3	use warnings;
4	use strict;
5
6	use Data::Dump qw(dump);
7
8	use lib "/srv/webpac2/lib/";
9	use WebPAC::Input::ISI;
10
11	$WebPAC::Input::ISI::subfields = undef; # disable parsing of subfields
12
13	sub shard {
14	my $self = shift;
15
16	my $input = WebPAC::Input::ISI->new( @_ );
17
18	warn "got ", $input->size, " records for ", dump @_;
19
20	my $data;
21
22	foreach my $pos ( 1 .. $input->size ) {
23	push @$data, $input->fetch_rec( $pos );
24	}
25
26	return $data;
27	}
28
29	1;