11 |
|
|
12 |
=head1 VERSION |
=head1 VERSION |
13 |
|
|
14 |
Version 0.06 |
Version 0.07 |
15 |
|
|
16 |
=cut |
=cut |
17 |
|
|
18 |
our $VERSION = '0.06'; |
our $VERSION = '0.07'; |
19 |
|
|
20 |
=head1 SYNOPSIS |
=head1 SYNOPSIS |
21 |
|
|
123 |
|
|
124 |
$log->debug("using lookup regex: ", $self->{lookup_regex}) if ($r && $l); |
$log->debug("using lookup regex: ", $self->{lookup_regex}) if ($r && $l); |
125 |
|
|
126 |
if ($self->{filter} && ! $self->{filter}->{regex}) { |
if (! $self->{filter} || ! $self->{filter}->{regex}) { |
127 |
$log->debug("adding built-in filter regex"); |
$log->debug("adding built-in filter regex"); |
128 |
$self->{filter}->{regex} = sub { |
$self->{filter}->{regex} = sub { |
129 |
my ($val, $regex) = @_; |
my ($val, $regex) = @_; |
157 |
|
|
158 |
$log->debug("data_structure rec = ", sub { Dumper($rec) }); |
$log->debug("data_structure rec = ", sub { Dumper($rec) }); |
159 |
|
|
160 |
$log->logdie("need unique ID (mfn) in field 000 of record ", sub { Dumper($rec) } ) unless (defined($rec->{'000'})); |
$log->logdie("need unique ID (mfn) in field 000 of record " . Dumper($rec) ) unless (defined($rec->{'000'})); |
161 |
|
|
162 |
my $id = $rec->{'000'}->[0] || $log->logdie("field 000 isn't array!"); |
my $id = $rec->{'000'}->[0] || $log->logdie("field 000 isn't array!"); |
163 |
|
|