r37824 - in /branches/upstream/libmoosex-methodattributes-perl/current: ./ lib/MooseX/ lib/MooseX/MethodAttributes/ lib/MooseX/MethodAttributes/Role/ lib/MooseX/MethodAttributes/Role/AttrContainer/ lib/MooseX/MethodAttributes/Role/Meta/ lib/MooseX/MethodAttributes/Role/Meta/Method/ t/ t/lib/
ryan52-guest at users.alioth.debian.org
ryan52-guest at users.alioth.debian.org
Sun Jun 7 21:27:26 UTC 2009
Author: ryan52-guest
Date: Sun Jun 7 21:27:21 2009
New Revision: 37824
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=37824
Log:
[svn-upgrade] Integrating new upstream version, libmoosex-methodattributes-perl (0.14)
Added:
branches/upstream/libmoosex-methodattributes-perl/current/t/role_in_role_more.t
Modified:
branches/upstream/libmoosex-methodattributes-perl/current/Changes
branches/upstream/libmoosex-methodattributes-perl/current/MANIFEST
branches/upstream/libmoosex-methodattributes-perl/current/META.yml
branches/upstream/libmoosex-methodattributes-perl/current/Makefile.PL
branches/upstream/libmoosex-methodattributes-perl/current/README
branches/upstream/libmoosex-methodattributes-perl/current/dist.ini
branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes.pm
branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Inheritable.pm
branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/AttrContainer.pm
branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/AttrContainer/Inheritable.pm
branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/Meta/Class.pm
branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/Meta/Map.pm
branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/Meta/Method.pm
branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/Meta/Method/MaybeWrapped.pm
branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/Meta/Method/Wrapped.pm
branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/Meta/Role.pm
branches/upstream/libmoosex-methodattributes-perl/current/t/lib/BaseClass.pm
branches/upstream/libmoosex-methodattributes-perl/current/t/lib/ClassUsingRoleWithAttributes.pm
branches/upstream/libmoosex-methodattributes-perl/current/t/lib/OtherSubClass.pm
branches/upstream/libmoosex-methodattributes-perl/current/t/lib/RoleWithAttributes.pm
branches/upstream/libmoosex-methodattributes-perl/current/t/lib/SubClass.pm
branches/upstream/libmoosex-methodattributes-perl/current/t/lib/SubClassUseBaseAndUseMoose.pm
branches/upstream/libmoosex-methodattributes-perl/current/t/lib/SubSubClass.pm
branches/upstream/libmoosex-methodattributes-perl/current/t/lib/TestClass.pm
Modified: branches/upstream/libmoosex-methodattributes-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-methodattributes-perl/current/Changes?rev=37824&op=diff
==============================================================================
--- branches/upstream/libmoosex-methodattributes-perl/current/Changes (original)
+++ branches/upstream/libmoosex-methodattributes-perl/current/Changes Sun Jun 7 21:27:21 2009
@@ -1,3 +1,7 @@
+0.14 Sun, Jun 7 01:51:49 2009 +0100
+ * Fix bugs with composing roles with method attributes into other
+ roles with method attributes + tests
+
0.13 Thu, 28 May 2009 01:19:00 +0100
* Add Test::More and Test::Exception to requirements for RT#46395
and RT#46396
Modified: branches/upstream/libmoosex-methodattributes-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-methodattributes-perl/current/MANIFEST?rev=37824&op=diff
==============================================================================
--- branches/upstream/libmoosex-methodattributes-perl/current/MANIFEST (original)
+++ branches/upstream/libmoosex-methodattributes-perl/current/MANIFEST Sun Jun 7 21:27:21 2009
@@ -35,4 +35,5 @@
t/override_method_with_no_attribute.t
t/role.t
t/role_applied.t
-t/role_in_role.t
+t/role_in_role.t
+t/role_in_role_more.t
Modified: branches/upstream/libmoosex-methodattributes-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-methodattributes-perl/current/META.yml?rev=37824&op=diff
==============================================================================
--- branches/upstream/libmoosex-methodattributes-perl/current/META.yml (original)
+++ branches/upstream/libmoosex-methodattributes-perl/current/META.yml Sun Jun 7 21:27:21 2009
@@ -12,4 +12,4 @@
Test::Exception: '0'
Test::More: '0'
namespace::clean: '0'
-version: '0.13'
+version: '0.14'
Modified: branches/upstream/libmoosex-methodattributes-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-methodattributes-perl/current/Makefile.PL?rev=37824&op=diff
==============================================================================
--- branches/upstream/libmoosex-methodattributes-perl/current/Makefile.PL (original)
+++ branches/upstream/libmoosex-methodattributes-perl/current/Makefile.PL Sun Jun 7 21:27:21 2009
@@ -9,7 +9,7 @@
NAME => 'MooseX::MethodAttributes',
AUTHOR => 'Florian\ Ragwitz\ \<rafl\@debian\.org\>\,\ Tomas\ Doran\ \<bobtfish\@bobtfish\.net\>',
ABSTRACT => 'code attribute introspection',
- VERSION => '0.13',
+ VERSION => '0.14',
EXE_FILES => [ qw() ],
(eval { ExtUtils::MakeMaker->VERSION(6.21) } ? (LICENSE => 'perl') : ()),
PREREQ_PM => {
Modified: branches/upstream/libmoosex-methodattributes-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-methodattributes-perl/current/README?rev=37824&op=diff
==============================================================================
--- branches/upstream/libmoosex-methodattributes-perl/current/README (original)
+++ branches/upstream/libmoosex-methodattributes-perl/current/README Sun Jun 7 21:27:21 2009
@@ -1,7 +1,7 @@
This archive contains the distribution MooseX-MethodAttributes, version
-0.13:
+0.14:
code attribute introspection
Modified: branches/upstream/libmoosex-methodattributes-perl/current/dist.ini
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-methodattributes-perl/current/dist.ini?rev=37824&op=diff
==============================================================================
--- branches/upstream/libmoosex-methodattributes-perl/current/dist.ini (original)
+++ branches/upstream/libmoosex-methodattributes-perl/current/dist.ini Sun Jun 7 21:27:21 2009
@@ -1,5 +1,5 @@
name = MooseX-MethodAttributes
-version = 0.13
+version = 0.14
author = Florian Ragwitz <rafl at debian.org>
author = Tomas Doran <bobtfish at bobtfish.net>
license = Perl_5
Modified: branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes.pm?rev=37824&op=diff
==============================================================================
--- branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes.pm (original)
+++ branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes.pm Sun Jun 7 21:27:21 2009
@@ -2,7 +2,7 @@
use warnings;
package MooseX::MethodAttributes;
-our $VERSION = '0.13';
+our $VERSION = '0.14';
# ABSTRACT: code attribute introspection
@@ -40,7 +40,7 @@
=head1 VERSION
-version 0.13
+version 0.14
=head1 SYNOPSIS
Modified: branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Inheritable.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Inheritable.pm?rev=37824&op=diff
==============================================================================
--- branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Inheritable.pm (original)
+++ branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Inheritable.pm Sun Jun 7 21:27:21 2009
@@ -1,5 +1,5 @@
package MooseX::MethodAttributes::Inheritable;
-our $VERSION = '0.13';
+our $VERSION = '0.14';
# ABSTRACT: inheritable code attribute introspection
@@ -23,7 +23,7 @@
=head1 VERSION
-version 0.13
+version 0.14
=head1 SYNOPSIS
Modified: branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/AttrContainer.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/AttrContainer.pm?rev=37824&op=diff
==============================================================================
--- branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/AttrContainer.pm (original)
+++ branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/AttrContainer.pm Sun Jun 7 21:27:21 2009
@@ -1,5 +1,5 @@
package MooseX::MethodAttributes::Role::AttrContainer;
-our $VERSION = '0.13';
+our $VERSION = '0.14';
# ABSTRACT: capture code attributes in the class' metaclass
@@ -24,7 +24,7 @@
=head1 VERSION
-version 0.13
+version 0.14
=head1 METHODS
Modified: branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/AttrContainer/Inheritable.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/AttrContainer/Inheritable.pm?rev=37824&op=diff
==============================================================================
--- branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/AttrContainer/Inheritable.pm (original)
+++ branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/AttrContainer/Inheritable.pm Sun Jun 7 21:27:21 2009
@@ -1,5 +1,5 @@
package MooseX::MethodAttributes::Role::AttrContainer::Inheritable;
-our $VERSION = '0.13';
+our $VERSION = '0.14';
# ABSTRACT: capture code attributes in the automatically initialized metaclass instance
@@ -43,7 +43,7 @@
=head1 VERSION
-version 0.13
+version 0.14
=head1 DESCRIPTION
Modified: branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/Meta/Class.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/Meta/Class.pm?rev=37824&op=diff
==============================================================================
--- branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/Meta/Class.pm (original)
+++ branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/Meta/Class.pm Sun Jun 7 21:27:21 2009
@@ -1,5 +1,5 @@
package MooseX::MethodAttributes::Role::Meta::Class;
-our $VERSION = '0.13';
+our $VERSION = '0.14';
# ABSTRACT: metaclass role for storing code attributes
@@ -108,7 +108,7 @@
=head1 VERSION
-version 0.13
+version 0.14
=head1 METHODS
Modified: branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/Meta/Map.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/Meta/Map.pm?rev=37824&op=diff
==============================================================================
--- branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/Meta/Map.pm (original)
+++ branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/Meta/Map.pm Sun Jun 7 21:27:21 2009
@@ -1,5 +1,5 @@
package MooseX::MethodAttributes::Role::Meta::Map;
-our $VERSION = '0.13';
+our $VERSION = '0.14';
# ABSTRACT: role for storing code attributes
@@ -46,7 +46,7 @@
=head1 VERSION
-version 0.13
+version 0.14
=head1 METHODS
Modified: branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/Meta/Method.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/Meta/Method.pm?rev=37824&op=diff
==============================================================================
--- branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/Meta/Method.pm (original)
+++ branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/Meta/Method.pm Sun Jun 7 21:27:21 2009
@@ -1,5 +1,5 @@
package MooseX::MethodAttributes::Role::Meta::Method;
-our $VERSION = '0.13';
+our $VERSION = '0.14';
# ABSTRACT: metamethod role allowing code attribute introspection
@@ -34,7 +34,7 @@
=head1 VERSION
-version 0.13
+version 0.14
=head1 ATTRIBUTES
Modified: branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/Meta/Method/MaybeWrapped.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/Meta/Method/MaybeWrapped.pm?rev=37824&op=diff
==============================================================================
--- branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/Meta/Method/MaybeWrapped.pm (original)
+++ branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/Meta/Method/MaybeWrapped.pm Sun Jun 7 21:27:21 2009
@@ -1,5 +1,5 @@
package MooseX::MethodAttributes::Role::Meta::Method::MaybeWrapped;
-our $VERSION = '0.13';
+our $VERSION = '0.14';
# ABSTRACT: proxy attributes of wrapped methods if their metaclass supports it
@@ -30,7 +30,7 @@
=head1 VERSION
-version 0.13
+version 0.14
=head1 AUTHORS
Modified: branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/Meta/Method/Wrapped.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/Meta/Method/Wrapped.pm?rev=37824&op=diff
==============================================================================
--- branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/Meta/Method/Wrapped.pm (original)
+++ branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/Meta/Method/Wrapped.pm Sun Jun 7 21:27:21 2009
@@ -1,5 +1,5 @@
package MooseX::MethodAttributes::Role::Meta::Method::Wrapped;
-our $VERSION = '0.13';
+our $VERSION = '0.14';
# ABSTRACT: wrapped metamethod role allowing code attribute introspection
@@ -27,7 +27,7 @@
=head1 VERSION
-version 0.13
+version 0.14
=head1 METHODS
Modified: branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/Meta/Role.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/Meta/Role.pm?rev=37824&op=diff
==============================================================================
--- branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/Meta/Role.pm (original)
+++ branches/upstream/libmoosex-methodattributes-perl/current/lib/MooseX/MethodAttributes/Role/Meta/Role.pm Sun Jun 7 21:27:21 2009
@@ -1,5 +1,5 @@
package MooseX::MethodAttributes::Role::Meta::Role;
-our $VERSION = '0.13';
+our $VERSION = '0.14';
# ABSTRACT: metarole role for storing code attributes
@@ -53,10 +53,14 @@
}
}
elsif ($thing->isa('Moose::Meta::Role')) {
- Moose::Util::MetaRole::apply_metaclass_roles(
- for_class => $thing->name,
- metaclass_roles => [ __PACKAGE__ ],
- );
+ unless (
+ does_role( $thing->meta->name, __PACKAGE__ )
+ ) {
+ Moose::Util::MetaRole::apply_metaclass_roles(
+ for_class => $thing->name,
+ metaclass_roles => [ __PACKAGE__ ],
+ );
+ }
ensure_all_roles($thing->name,
'MooseX::MethodAttributes::Role::AttrContainer',
);
@@ -71,10 +75,10 @@
my $meta = find_meta($thing->name);
my $ret = $self->$orig($meta);
-
+
push @{ $meta->_method_attribute_list }, @{ $self->_method_attribute_list };
- @{ $meta->_method_attribute_map }{ keys(%{ $self->_method_attribute_map }) }
- = values %{ $self->_method_attribute_map };
+ @{ $meta->_method_attribute_map }{ (keys(%{ $self->_method_attribute_map }), keys(%{ $meta->_method_attribute_map })) }
+ = (values(%{ $self->_method_attribute_map }), values(%{ $meta->_method_attribute_map }));
return $ret;
};
@@ -94,7 +98,7 @@
=head1 VERSION
-version 0.13
+version 0.14
=head1 SYNOPSIS
Modified: branches/upstream/libmoosex-methodattributes-perl/current/t/lib/BaseClass.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-methodattributes-perl/current/t/lib/BaseClass.pm?rev=37824&op=diff
==============================================================================
--- branches/upstream/libmoosex-methodattributes-perl/current/t/lib/BaseClass.pm (original)
+++ branches/upstream/libmoosex-methodattributes-perl/current/t/lib/BaseClass.pm Sun Jun 7 21:27:21 2009
@@ -2,12 +2,12 @@
use warnings;
package BaseClass::Meta::Role;
-our $VERSION = '0.13';
+our $VERSION = '0.14';
use Moose::Role;
package BaseClass;
-our $VERSION = '0.13';
+our $VERSION = '0.14';
use Moose;
Modified: branches/upstream/libmoosex-methodattributes-perl/current/t/lib/ClassUsingRoleWithAttributes.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-methodattributes-perl/current/t/lib/ClassUsingRoleWithAttributes.pm?rev=37824&op=diff
==============================================================================
--- branches/upstream/libmoosex-methodattributes-perl/current/t/lib/ClassUsingRoleWithAttributes.pm (original)
+++ branches/upstream/libmoosex-methodattributes-perl/current/t/lib/ClassUsingRoleWithAttributes.pm Sun Jun 7 21:27:21 2009
@@ -1,5 +1,5 @@
package ClassUsingRoleWithAttributes;
-our $VERSION = '0.13';
+our $VERSION = '0.14';
use Moose;
# FIXME - This should not have to be here.
Modified: branches/upstream/libmoosex-methodattributes-perl/current/t/lib/OtherSubClass.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-methodattributes-perl/current/t/lib/OtherSubClass.pm?rev=37824&op=diff
==============================================================================
--- branches/upstream/libmoosex-methodattributes-perl/current/t/lib/OtherSubClass.pm (original)
+++ branches/upstream/libmoosex-methodattributes-perl/current/t/lib/OtherSubClass.pm Sun Jun 7 21:27:21 2009
@@ -2,7 +2,7 @@
use warnings;
package OtherSubClass;
-our $VERSION = '0.13';
+our $VERSION = '0.14';
use base qw/BaseClass/;
Modified: branches/upstream/libmoosex-methodattributes-perl/current/t/lib/RoleWithAttributes.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-methodattributes-perl/current/t/lib/RoleWithAttributes.pm?rev=37824&op=diff
==============================================================================
--- branches/upstream/libmoosex-methodattributes-perl/current/t/lib/RoleWithAttributes.pm (original)
+++ branches/upstream/libmoosex-methodattributes-perl/current/t/lib/RoleWithAttributes.pm Sun Jun 7 21:27:21 2009
@@ -1,5 +1,5 @@
package RoleWithAttributes;
-our $VERSION = '0.13';
+our $VERSION = '0.14';
use Moose::Role -traits => 'MethodAttributes';
use namespace::clean -except => 'meta';
Modified: branches/upstream/libmoosex-methodattributes-perl/current/t/lib/SubClass.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-methodattributes-perl/current/t/lib/SubClass.pm?rev=37824&op=diff
==============================================================================
--- branches/upstream/libmoosex-methodattributes-perl/current/t/lib/SubClass.pm (original)
+++ branches/upstream/libmoosex-methodattributes-perl/current/t/lib/SubClass.pm Sun Jun 7 21:27:21 2009
@@ -2,7 +2,7 @@
use warnings;
package SubClass;
-our $VERSION = '0.13';
+our $VERSION = '0.14';
use Moose;
Modified: branches/upstream/libmoosex-methodattributes-perl/current/t/lib/SubClassUseBaseAndUseMoose.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-methodattributes-perl/current/t/lib/SubClassUseBaseAndUseMoose.pm?rev=37824&op=diff
==============================================================================
--- branches/upstream/libmoosex-methodattributes-perl/current/t/lib/SubClassUseBaseAndUseMoose.pm (original)
+++ branches/upstream/libmoosex-methodattributes-perl/current/t/lib/SubClassUseBaseAndUseMoose.pm Sun Jun 7 21:27:21 2009
@@ -2,7 +2,7 @@
use warnings;
package SubClassUseBaseAndUseMoose;
-our $VERSION = '0.13';
+our $VERSION = '0.14';
use base qw/BaseClass/;
Modified: branches/upstream/libmoosex-methodattributes-perl/current/t/lib/SubSubClass.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-methodattributes-perl/current/t/lib/SubSubClass.pm?rev=37824&op=diff
==============================================================================
--- branches/upstream/libmoosex-methodattributes-perl/current/t/lib/SubSubClass.pm (original)
+++ branches/upstream/libmoosex-methodattributes-perl/current/t/lib/SubSubClass.pm Sun Jun 7 21:27:21 2009
@@ -2,7 +2,7 @@
use warnings;
package SubSubClass;
-our $VERSION = '0.13';
+our $VERSION = '0.14';
use base qw/OtherSubClass/;
Modified: branches/upstream/libmoosex-methodattributes-perl/current/t/lib/TestClass.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-methodattributes-perl/current/t/lib/TestClass.pm?rev=37824&op=diff
==============================================================================
--- branches/upstream/libmoosex-methodattributes-perl/current/t/lib/TestClass.pm (original)
+++ branches/upstream/libmoosex-methodattributes-perl/current/t/lib/TestClass.pm Sun Jun 7 21:27:21 2009
@@ -1,5 +1,5 @@
package TestClass;
-our $VERSION = '0.13';
+our $VERSION = '0.14';
use Moose;
@@ -12,7 +12,7 @@
after foo => sub {};
package SubClass;
-our $VERSION = '0.13';
+our $VERSION = '0.14';
use Moose;
Added: branches/upstream/libmoosex-methodattributes-perl/current/t/role_in_role_more.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmoosex-methodattributes-perl/current/t/role_in_role_more.t?rev=37824&op=file
==============================================================================
--- branches/upstream/libmoosex-methodattributes-perl/current/t/role_in_role_more.t (added)
+++ branches/upstream/libmoosex-methodattributes-perl/current/t/role_in_role_more.t Sun Jun 7 21:27:21 2009
@@ -1,0 +1,57 @@
+use strict;
+use warnings;
+use MooseX::MethodAttributes ();
+
+{
+ package Bar;
+ use Moose::Role -traits => 'MethodAttributes';
+ use namespace::clean -except => 'meta';
+
+ sub item :Chained(/app/root) PathPrefix CaptureArgs(1) { }
+}
+
+{
+ package Foo;
+ use Moose::Role -traits => 'MethodAttributes';
+ use namespace::clean -except => 'meta';
+
+ with 'Bar';
+
+ sub live :Chained(item) PathPart Args(0) { }
+ sub foo :Attr { }
+ sub other :Attr { }
+}
+
+{
+ package Catalyst::Controller;
+ use Moose;
+ use namespace::clean -except => 'meta';
+
+ BEGIN { extends qw/MooseX::MethodAttributes::Inheritable/; }
+}
+
+use Test::More tests => 1;
+use Moose::Util;
+use Moose::Meta::Class;;
+use Data::Dumper;
+
+my @roles = qw/Foo/;
+
+Moose::Meta::Class->create("MyClass",
+ superclasses => [qw/Catalyst::Controller/],
+ roles => \@roles,
+);
+
+my @methods;
+for my $method (sort { $a->name cmp $b->name } MyClass->meta->get_all_methods_with_attributes) {
+ push(@methods, $method->name . " :" . join("|", @{ $method->attributes }));
+}
+
+is_deeply \@methods, [
+ 'foo :Attr',
+ 'item :Chained(/app/root)|PathPrefix|CaptureArgs(1)',
+ 'live :Chained(item)|PathPart|Args(0)',
+ 'other :Attr',
+], 'methods with expected attributes found'
+ or warn Dumper(\@methods);
+
More information about the Pkg-perl-cvs-commits
mailing list