[libmoox-late-perl] 03/06: pass new test
Intrigeri
intrigeri at moszumanska.debian.org
Thu Aug 14 11:13:35 UTC 2014
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 <mail at tobyinkster.co.uk>
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
More information about the Pkg-perl-cvs-commits
mailing list