7 |
BEGIN { |
BEGIN { |
8 |
use Exporter (); |
use Exporter (); |
9 |
use vars qw ($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); |
use vars qw ($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); |
10 |
$VERSION = 0.22_2; |
$VERSION = 0.22; |
11 |
@ISA = qw (Exporter); |
@ISA = qw (Exporter); |
12 |
#Give a hoot don't pollute, do not export more than needed by default |
#Give a hoot don't pollute, do not export more than needed by default |
13 |
@EXPORT = qw (); |
@EXPORT = qw (); |
114 |
|
|
115 |
=item hash_filter |
=item hash_filter |
116 |
|
|
117 |
Filter code ref which will be used before data is converted to hash. |
Filter code ref which will be used before data is converted to hash. It will |
118 |
|
receive two arguments, whole line from current field (in C<< $_[0] >>) and |
119 |
|
field number (in C<< $_[1] >>). |
120 |
|
|
121 |
=item debug |
=item debug |
122 |
|
|
753 |
|
|
754 |
=over 8 |
=over 8 |
755 |
|
|
756 |
|
=item 0.22 |
757 |
|
|
758 |
|
Added field number when calling C<hash_filter> |
759 |
|
|
760 |
=item 0.21 |
=item 0.21 |
761 |
|
|
762 |
Added C<join_subfields_with> to L</new> and L</to_hash>. |
Added C<join_subfields_with> to L</new> and L</to_hash>. |