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 18e6ade68cdcde1d24421f6311d46ba51b23b848 Author: Patrick Hochstenbach <[email protected]> Date: Thu Jun 22 09:46:27 2017 +0200 Upgrading Catmandu using new group binds for marc_each --- Build.PL | 2 +- Changes | 2 ++ cpanfile | 2 +- lib/Catmandu/Fix/Bind/marc_each.pm | 10 +++++----- 4 files changed, 9 insertions(+), 7 deletions(-) diff --git a/Build.PL b/Build.PL index 5b53e5f..0da7e6f 100644 --- a/Build.PL +++ b/Build.PL @@ -24,7 +24,7 @@ my %module_build_args = ( "recursive_test_files" => 1, "requires" => { "Carp" => 0, - "Catmandu" => "1.0201", + "Catmandu" => "1.0601", "JSON::XS" => "2.3", "List::Util" => 0, "MARC::File::MARCMaker" => "0.05", diff --git a/Changes b/Changes index 4b1f008..e374573 100644 --- a/Changes +++ b/Changes @@ -1,6 +1,8 @@ Revision history for Catmandu-MARC {{$NEXT}} + - Upgrading to Catmandu 1.06X + - Using the Catmandu::Fix::Bind::Group style for marc_each bind 1.13 2017-06-15 09:19:13 CEST - Fixing join subfields per field correctly in marc_spec diff --git a/cpanfile b/cpanfile index 44fde68..0c3b729 100644 --- a/cpanfile +++ b/cpanfile @@ -11,7 +11,7 @@ on 'test', sub { }; requires 'Carp', '0'; -requires 'Catmandu', '>=1.0201'; +requires 'Catmandu', '>=1.0601'; requires 'JSON::XS', '2.3'; requires 'YAML::XS', '0.34'; requires 'List::Util', '0'; diff --git a/lib/Catmandu/Fix/Bind/marc_each.pm b/lib/Catmandu/Fix/Bind/marc_each.pm index e4f823a..85a3d82 100644 --- a/lib/Catmandu/Fix/Bind/marc_each.pm +++ b/lib/Catmandu/Fix/Bind/marc_each.pm @@ -5,7 +5,7 @@ use Catmandu::Util; our $VERSION = '1.13'; -with 'Catmandu::Fix::Bind'; +with 'Catmandu::Fix::Bind', 'Catmandu::Fix::Bind::Group'; has done => (is => 'ro'); @@ -13,12 +13,12 @@ sub unit { my ($self,$data) = @_; $self->{done} = 0; - + $data; } sub bind { - my ($self,$mvar,$func,$name,$fixer) = @_; + my ($self,$mvar,$code) = @_; return $mvar if $self->done; @@ -30,7 +30,7 @@ sub bind { $mvar->{record} = [$row]; - my $fixed = $fixer->fix($mvar); + my $fixed = $code->($mvar); push @new , @{$fixed->{record}} if defined $fixed && exists $fixed->{record} && defined $fixed->{record}; } @@ -66,7 +66,7 @@ Catmandu::Fix::Bind::marc_each - a binder that loops over MARC fields =head1 DESCRIPTION -The marc_each binder will iterate over each individual MARC field and execute the fixes only +The marc_each binder will iterate over each individual MARC field and execute the fixes only in context over each individual field. If a MARC record contains: -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libcatmandu-marc-perl.git _______________________________________________ Pkg-perl-cvs-commits mailing list [email protected] http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits
