to_hash now accept parametars

git-svn-id: file:///home/dpavlin/svn/Biblio-Isis/trunk@56 4670fa4d-42ec-0310-ab5b-a66af6943492

diff --git a/lib/Biblio/Isis.pm b/lib/Biblio/Isis.pm
index b11e856..a87994f 100644 (file)
--- a/lib/Biblio/Isis.pm
+++ b/lib/Biblio/Isis.pm
@@ -491,12 +491,26 @@ following structure:
 
 This method will also create additional field C<000> with MFN.
 
+There is also more elaborative way to call C<to_hash> 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 @@ You can find version dependencies documented here
 
 =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
 

diff --git a/t/2_isis.t b/t/2_isis.t
index de74585..a7b9405 100755 (executable)
--- a/t/2_isis.t
+++ b/t/2_isis.t
@@ -3,7 +3,7 @@
 use strict;
 use blib;
 
-use Test::More tests => 128;
+use Test::More tests => 130;
 use File::Spec;
 
 BEGIN {
@@ -238,3 +238,5 @@ cmp_ok($ascii, 'eq', <<'__END_OF_ASCII__', 'to_ascii output');
 __END_OF_ASCII__
 
 
+ok(my $hash2 = $isis->to_hash({ mfn => $isis->mfn }), 'to_hash(mfn)');
+is_deeply( $hash2, $hash, 'same hash' );