[libmoox-late-perl] 03/06: pass new test

[Intrigeri]

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