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=b750f424365a2b95fd1bf9fb85459df633ed49fe;hpb=63fcc5089af76b1738850b39823dab675626ebfa;p=gitmo%2FMooseX-ClassAttribute.git

diff --git a/lib/MooseX/ClassAttribute/Trait/Application/ToRole.pm b/lib/MooseX/ClassAttribute/Trait/Application/ToRole.pm
index b750f42..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;
@@ -51,3 +53,33 @@ sub apply_class_attributes {
 }
 
 1;
+
+__END__
+
+=pod
+
+=head1 NAME
+
+MooseX::ClassAttribute::Trait::Application::ToRole - A trait that supports applying class attributes to roles
+
+=head1 DESCRIPTION
+
+This trait is used to allow the application of roles containing class
+attributes to roles.
+
+=head1 AUTHOR
+
+Dave Rolsky, C<< <autarch@urth.org> >>
+
+=head1 BUGS
+
+See L<MooseX::ClassAttribute> for details.
+
+=head1 COPYRIGHT & LICENSE
+
+Copyright 2007-2008 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