16 |
|
|
17 |
=head1 VERSION |
=head1 VERSION |
18 |
|
|
19 |
Version 0.08 |
Version 0.09 |
20 |
|
|
21 |
=cut |
=cut |
22 |
|
|
23 |
our $VERSION = '0.08'; |
our $VERSION = '0.09'; |
24 |
|
|
25 |
=head1 SYNOPSIS |
=head1 SYNOPSIS |
26 |
|
|
252 |
|
|
253 |
$l =~ s/($recode_regex)/$recode_map->{$1}/g if ($recode_regex && $recode_map); |
$l =~ s/($recode_regex)/$recode_map->{$1}/g if ($recode_regex && $recode_map); |
254 |
|
|
255 |
return $l unless ($rec_regex); |
## FIXME remove this warning when we are sure that none of API is calling |
256 |
|
## this wrongly |
257 |
|
warn "filter called without field number" unless ($f_nr); |
258 |
|
|
259 |
|
return $l unless ($rec_regex && $f_nr); |
260 |
|
|
261 |
# apply regexps |
# apply regexps |
262 |
if ($rec_regex && defined($rec_regex->{$f_nr})) { |
if ($rec_regex && defined($rec_regex->{$f_nr})) { |
608 |
|
|
609 |
=head1 COPYRIGHT & LICENSE |
=head1 COPYRIGHT & LICENSE |
610 |
|
|
611 |
Copyright 2005 Dobrica Pavlinusic, All Rights Reserved. |
Copyright 2005-2006 Dobrica Pavlinusic, All Rights Reserved. |
612 |
|
|
613 |
This program is free software; you can redistribute it and/or modify it |
This program is free software; you can redistribute it and/or modify it |
614 |
under the same terms as Perl itself. |
under the same terms as Perl itself. |