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 |
|
|
170 |
$log->debug("cache miss, creating"); |
$log->debug("cache miss, creating"); |
171 |
} |
} |
172 |
|
|
|
undef $self->{'currnet_filename'}; |
|
|
undef $self->{'headline'}; |
|
|
|
|
173 |
my @sorted_tags; |
my @sorted_tags; |
174 |
if ($self->{tags_by_order}) { |
if ($self->{tags_by_order}) { |
175 |
@sorted_tags = @{$self->{tags_by_order}}; |
@sorted_tags = @{$self->{tags_by_order}}; |
298 |
|
|
299 |
=cut |
=cut |
300 |
|
|
301 |
|
my $warn_once; |
302 |
|
|
303 |
sub parse { |
sub parse { |
304 |
my $self = shift; |
my $self = shift; |
305 |
|
|
380 |
$out = $self->{'filter'}->{$filter_name}->(@filter_args); |
$out = $self->{'filter'}->{$filter_name}->(@filter_args); |
381 |
return unless(defined($out)); |
return unless(defined($out)); |
382 |
$log->debug("filter result: $out"); |
$log->debug("filter result: $out"); |
383 |
} else { |
} elsif (! $warn_once->{$filter_name}) { |
384 |
$log->warn("trying to use undefined filter $filter_name"); |
$log->warn("trying to use undefined filter $filter_name"); |
385 |
|
$warn_once->{$filter_name}++; |
386 |
} |
} |
387 |
} |
} |
388 |
|
|