--- trunk/lib/Biblio/Isis.pm 2006/07/07 23:45:12 54 +++ trunk/lib/Biblio/Isis.pm 2006/07/08 16:03:52 56 @@ -491,12 +491,26 @@ This method will also create additional field C<000> with MFN. +There is also more elaborative way to call C like this: + + my $hash = $isis->to_hash({ + mfn => 42, + include_empty_subfields => 1, + }); + =cut sub to_hash { my $self = shift; + my $mfn = shift || confess "need mfn!"; + my $arg; + + if (ref($mfn) eq 'HASH') { + $arg = $mfn; + $mfn = $arg->{mfn} || confess "need mfn in arguments"; + } # init record to include MFN as field 000 my $rec = { '000' => [ $mfn ] }; @@ -662,7 +676,8 @@ =item 0.20 -Added C<< $isis->mfn >> and support for repeatable subfields +Added C<< $isis->mfn >>, support for repeatable subfields and +C<< $isis->to_hash({ mfn => 42, ... }) >> calling convention =back