X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FClassAttribute%2FTrait%2FApplication%2FToRole.pm;h=00ff4404f78d036d9f4bcb98d51d3ffa225bf353;hb=88412c0942d1d61375207c659588262718955915;hp=2d2e23e745f89bc9df39511677b2b0183910c4d7;hpb=04b89789fd31a0a17c38b3673043efd616848b8a;p=gitmo%2FMooseX-ClassAttribute.git diff --git a/lib/MooseX/ClassAttribute/Trait/Application/ToRole.pm b/lib/MooseX/ClassAttribute/Trait/Application/ToRole.pm index 2d2e23e..00ff440 100644 --- a/lib/MooseX/ClassAttribute/Trait/Application/ToRole.pm +++ b/lib/MooseX/ClassAttribute/Trait/Application/ToRole.pm @@ -3,6 +3,8 @@ package MooseX::ClassAttribute::Trait::Application::ToRole; use strict; use warnings; +our $VERSION = '0.11'; + use Moose::Util::MetaRole; use MooseX::ClassAttribute::Trait::Application::ToClass; use MooseX::ClassAttribute::Trait::Application::ToInstance; @@ -12,7 +14,7 @@ use Moose::Role; with 'MooseX::ClassAttribute::Trait::Application'; -sub apply_class_attributes { +sub _apply_class_attributes { my $self = shift; my $role1 = shift; my $role2 = shift;