From: Dave Rolsky Date: Thu, 15 Jul 2010 15:39:05 +0000 (-0500) Subject: really fix MetaRole API use X-Git-Tag: v0.16~2 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=dbf3ee23ba0c9380042f76c0f52b0490a0df7c1a;p=gitmo%2FMooseX-ClassAttribute.git really fix MetaRole API use --- diff --git a/lib/MooseX/ClassAttribute/Trait/Application/ToClass.pm b/lib/MooseX/ClassAttribute/Trait/Application/ToClass.pm index 9026aed..423de0f 100644 --- a/lib/MooseX/ClassAttribute/Trait/Application/ToClass.pm +++ b/lib/MooseX/ClassAttribute/Trait/Application/ToClass.pm @@ -13,7 +13,7 @@ sub _apply_class_attributes { my $role = shift; my $class = shift; - $class = Moose::Util::MetaRole::apply_metaclass_roles( + $class = Moose::Util::MetaRole::apply_metaroles( for => $class, class_metaroles => { class => ['MooseX::ClassAttribute::Trait::Class'], diff --git a/lib/MooseX/ClassAttribute/Trait/Application/ToRole.pm b/lib/MooseX/ClassAttribute/Trait/Application/ToRole.pm index e20dcdf..52a6047 100644 --- a/lib/MooseX/ClassAttribute/Trait/Application/ToRole.pm +++ b/lib/MooseX/ClassAttribute/Trait/Application/ToRole.pm @@ -16,7 +16,7 @@ sub _apply_class_attributes { my $role1 = shift; my $role2 = shift; - $role2 = Moose::Util::MetaRole::apply_metaclass_roles( + $role2 = Moose::Util::MetaRole::apply_metaroles( for => $role2, role_metaroles => { role => ['MooseX::ClassAttribute::Trait::Role'],