This is an automated email from the git hooks/post-receive script. intrigeri pushed a commit to tag 0.005 in repository libmoox-late-perl.
commit 2a7339bc34b2dfff9b8b6b9d899b1ec7bfb0b111 Author: Toby Inkster <[email protected]> Date: Sun Dec 9 21:44:33 2012 +0000 pass new test --- lib/MooX/late.pm | 41 ++++++++++++++++++++++------------------- meta/changes.pret | 7 +++++++ meta/makefile.pret | 2 +- 3 files changed, 30 insertions(+), 20 deletions(-) diff --git a/lib/MooX/late.pm b/lib/MooX/late.pm index fddfd05..bcda367 100644 --- a/lib/MooX/late.pm +++ b/lib/MooX/late.pm @@ -1,20 +1,21 @@ -package MooX::late; - use 5.008; use strict; use warnings; + +package MooX::late; +our AUTHORITY = 'cpan:TOBYINK'; +our VERSION = '0.005'; + use Moo qw( ); use Carp qw( carp croak ); use Scalar::Util qw( blessed ); use Module::Runtime qw( is_module_name ); BEGIN { - $MooX::late::AUTHORITY = 'cpan:TOBYINK'; - $MooX::late::VERSION = '0.004'; -}; - -BEGIN { package MooX::late::DefinitionContext; + our AUTHORITY = 'cpan:TOBYINK'; + our VERSION = '0.005'; + use Moo; use overload ( q[""] => 'to_string', @@ -80,20 +81,22 @@ sub import $install_tracked->( $caller, has => sub { - my ($name, %spec) = @_; - + my ($proto, %spec) = @_; my $context = "MooX::late::DefinitionContext"->new_from_caller(0); - $me->_process_isa($name, \%spec, $context) - if exists $spec{isa} && !ref $spec{isa}; - - $me->_process_default($name, \%spec, $context) - if exists $spec{default} && !ref $spec{default}; - - $me->_process_lazy_build($name, \%spec, $context) - if exists $spec{lazy_build} && $spec{lazy_build}; - - return $orig->($name, %spec); + for my $name (ref $proto ? @$proto : $proto) + { + my $spec = +{ %spec }; # shallow clone + $me->_process_isa($name, $spec, $context) + if exists $spec->{isa} && !ref $spec->{isa}; + $me->_process_default($name, $spec, $context) + if exists $spec->{default} && !ref $spec->{default}; + $me->_process_lazy_build($name, $spec, $context) + if exists $spec->{lazy_build} && $spec->{lazy_build}; + + $orig->($name, %$spec); + } + return; }, ); diff --git a/meta/changes.pret b/meta/changes.pret index 3594a7f..6bb4180 100644 --- a/meta/changes.pret +++ b/meta/changes.pret @@ -24,3 +24,10 @@ item "Issue warnings when type constraint cannot be interpreted correctly. Warning is not issued at the time the attribute is built, but the first time the type constraint is checked against. Don't attempt to inflate these type constraints when Moose is loaded."^^Addition; ]. +`MooX-late 0.005 cpan:TOBYINK` + issued 2012-12-09; + changeset [ + item "Bump required version of Moo to 1.000004."^^Packaging; + item "Cope with has \@attributes => (...)."^^Bugfix; + ]. + diff --git a/meta/makefile.pret b/meta/makefile.pret index ccfb532..1c9d4fe 100644 --- a/meta/makefile.pret +++ b/meta/makefile.pret @@ -5,7 +5,7 @@ version_from m`MooX::late`; readme_from m`MooX::late`; test_requires p`Test::More 0.61`; - requires p`Moo 1.000000`; + requires p`Moo 1.000004`; recommends p`MooX`; . -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libmoox-late-perl.git _______________________________________________ Pkg-perl-cvs-commits mailing list [email protected] http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits
