X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FClassAttribute%2FTrait%2FApplication%2FToInstance.pm;h=0752d2742359ed8562903d93e6aa80cd72ca1338;hb=9c9943e8b37cd5a2aa5860d42175abea76545484;hp=ef83c22bbfe64672e55f9d16c1e582354ebeb3c2;hpb=63fcc5089af76b1738850b39823dab675626ebfa;p=gitmo%2FMooseX-ClassAttribute.git

diff --git a/lib/MooseX/ClassAttribute/Trait/Application/ToInstance.pm b/lib/MooseX/ClassAttribute/Trait/Application/ToInstance.pm
index ef83c22..0752d27 100644
--- a/lib/MooseX/ClassAttribute/Trait/Application/ToInstance.pm
+++ b/lib/MooseX/ClassAttribute/Trait/Application/ToInstance.pm
@@ -3,16 +3,16 @@ package MooseX::ClassAttribute::Trait::Application::ToInstance;
 use strict;
 use warnings;
 
-use Class::MOP;
+our $VERSION   = '0.11';
 
 use namespace::autoclean;
 use Moose::Role;
 
 after apply => sub {
-    shift->apply_class_attributes(@_);
+    shift->_apply_class_attributes(@_);
 };
 
-sub apply_class_attributes {
+sub _apply_class_attributes {
     my $self   = shift;
     my $role   = shift;
     my $object = shift;
@@ -41,3 +41,33 @@ sub apply_class_attributes {
 }
 
 1;
+
+__END__
+
+=pod
+
+=head1 NAME
+
+MooseX::ClassAttribute::Trait::Application::ToClass - A trait that supports applying class attributes to instances
+
+=head1 DESCRIPTION
+
+This trait is used to allow the application of roles containing class
+attributes to object instances.
+
+=head1 AUTHOR
+
+Dave Rolsky, C<< <autarch@urth.org> >>
+
+=head1 BUGS
+
+See L<MooseX::ClassAttribute> 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