X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FClassAttribute%2FTrait%2FApplication%2FToClass.pm;h=423de0f3e8138713baede8ee8e9b272a70d1275a;hb=dbf3ee23ba0c9380042f76c0f52b0490a0df7c1a;hp=2f659fc274151e463d1601a1394d8e36e8cf10f7;hpb=12a0d4dbb8ea8fb1d6c9df72ae983cc45674727c;p=gitmo%2FMooseX-ClassAttribute.git diff --git a/lib/MooseX/ClassAttribute/Trait/Application/ToClass.pm b/lib/MooseX/ClassAttribute/Trait/Application/ToClass.pm index 2f659fc..423de0f 100644 --- a/lib/MooseX/ClassAttribute/Trait/Application/ToClass.pm +++ b/lib/MooseX/ClassAttribute/Trait/Application/ToClass.pm @@ -3,8 +3,6 @@ package MooseX::ClassAttribute::Trait::Application::ToClass; use strict; use warnings; -our $VERSION = '0.13'; - use namespace::autoclean; use Moose::Role; @@ -15,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'], @@ -40,32 +38,19 @@ sub _apply_class_attributes { 1; +# ABSTRACT: A trait that supports applying class attributes to classes + __END__ =pod -=head1 NAME - -MooseX::ClassAttribute::Trait::Application::ToClass - A trait that supports applying class attributes to classes - =head1 DESCRIPTION This trait is used to allow the application of roles containing class attributes to classes. -=head1 AUTHOR - -Dave Rolsky, C<< >> - =head1 BUGS See L for details. -=head1 COPYRIGHT & LICENSE - -Copyright 2007-2010 Dave Rolsky, All Rights Reserved. - -This program is free software; you can redistribute it and/or modify -it under the same terms as Perl itself. - =cut