BEGIN {
use Exporter ();
use vars qw ($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
- $VERSION = 0.22_1;
+ $VERSION = 0.22_2;
@ISA = qw (Exporter);
#Give a hoot don't pollute, do not export more than needed by default
@EXPORT = qw ();
},
debug => 1,
join_subfields_with => ' ; ',
+ regexps => [
+ 's/something/else/g',
+ ],
);
Options are described below:
option is included to support lagacy application written against version
older than 0.21 of this module. By default, it disabled. See L</to_hash>.
+=item regexpes
+
+Define (any number) of regexpes to apply at field values before they are
+splitted into subfield. This is great place to split subfields in input to
+mulitple subfields if needed or rename subfields.
+
=back
=cut
Define delimiter which will be used to join repeatable subfields. You can
specify option here instead in L</new> if you want to have per-record control.
+=item regexpes
+
+Override C<regexpes> specified in L</new>.
+
=back
=cut
$mfn = $arg->{mfn} || confess "need mfn in arguments";
}
+ $arg->{regexpes} ||= $self->{regexpes};
+
confess "regexps must be HASH" if ($arg->{regexps} && ref($arg->{regexps}) ne 'HASH');
# init record to include MFN as field 000