[libcatmandu-marc-perl] 27/208: Adding the nested_arrays option to marc_map

[Jonas Smedegaard]

This is an automated email from the git hooks/post-receive script.

js pushed a commit to annotated tag upstream/1.19
in repository libcatmandu-marc-perl.

commit a356f7363a486787fcdaf25201ff724fd36f5d1d
Author: Patrick Hochstenbach <patrick.hochstenbach at ugent.be>
Date:   Thu Jul 7 11:24:50 2016 +0200

    Adding the nested_arrays option to marc_map
---
 lib/Catmandu/Fix/marc_map.pm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/lib/Catmandu/Fix/marc_map.pm b/lib/Catmandu/Fix/marc_map.pm
index 59b91a6..20d4c2a 100644
--- a/lib/Catmandu/Fix/marc_map.pm
+++ b/lib/Catmandu/Fix/marc_map.pm
@@ -16,6 +16,7 @@ has split          => (fix_opt => 1);
 has join           => (fix_opt => 1);
 has value          => (fix_opt => 1);
 has pluck          => (fix_opt => 1);
+has nested_arrays  => (fix_opt => 1);
 
 sub emit {
     my ($self,$fixer) = @_;
@@ -26,6 +27,8 @@ sub emit {
     my $join_opt    = $fixer->emit_string($self->join // '');
     my $split_opt   = $fixer->emit_string($self->split // 0);
     my $pluck_opt   = $fixer->emit_string($self->pluck // 0);
+    my $nested_arrays_opt = $fixer->emit_string($self->nested_arrays // 0);
+
     my $value_opt   = $self->value ?
                         $fixer->emit_string($self->value) : 'undef';
     my $var         = $fixer->var;
@@ -38,6 +41,7 @@ if (my ${result} = Catmandu::MARC::marc_map(
             -split => ${split_opt},
             -join  => ${join_opt},
             -pluck => ${pluck_opt},
+            -nested_arrays => ${nested_arrays_opt} ,
             -value => ${value_opt}) ) {
 EOF
     $perl .= $fixer->emit_create_path(

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libcatmandu-marc-perl.git