dzilize this distro

[gitmo/MooseX-ClassAttribute.git] / lib / MooseX / ClassAttribute / Trait / Class.pm

diff --git a/lib/MooseX/ClassAttribute/Trait/Class.pm b/lib/MooseX/ClassAttribute/Trait/Class.pm
index 3bb887c..18b403f 100644 (file)
--- a/lib/MooseX/ClassAttribute/Trait/Class.pm
+++ b/lib/MooseX/ClassAttribute/Trait/Class.pm
@@ -129,8 +129,8 @@ sub get_all_class_attributes {
     my %attrs
         = map {
         my $meta = Class::MOP::class_of($_);
-        $meta && $meta->can('get_class_attribute_map')
-            ? %{ $meta->get_class_attribute_map() }
+        $meta && $meta->can('_class_attribute_map')
+            ? %{ $meta->_class_attribute_map() }
             : ()
         }
         reverse $self->linearized_isa;
@@ -225,14 +225,12 @@ sub inline_weaken_class_slot_value {
 
 1;
 
+# ABSTRACT: A trait for classes with class attributes
+
 __END__
 
 =pod
 
-=head1 NAME
-
-MooseX::ClassAttribute::Trait::Class - A metaclass role for classes with class attributes
-
 =head1 SYNOPSIS
 
   for my $attr ( HasClassAttributes->meta()->get_all_class_attributes() )
@@ -257,8 +255,6 @@ C<Class::MOP::Class> or C<Moose::Meta::Class> for regular attributes.
 
 =head2 $meta->get_class_attribute_list()
 
-=head2 $meta->get_class_attribute_map()
-
 These methods operate on the current metaclass only.
 
 =head2 $meta->add_class_attribute(...)
@@ -298,17 +294,17 @@ you're doing some deep hacking. They are named as public methods
 solely because they are used by other meta roles and classes in this
 distribution.
 
-=head2 inline_class_slot_access($name)
+=head2 $meta->inline_class_slot_access($name)
 
-=head2 inline_get_class_slot_value($name)
+=head2 $meta->inline_get_class_slot_value($name)
 
-=head2 inline_set_class_slot_value($name, $val_name)
+=head2 $meta->inline_set_class_slot_value($name, $val_name)
 
-=head2 inline_is_class_slot_initialized($name)
+=head2 $meta->inline_is_class_slot_initialized($name)
 
-=head2 inline_deinitialize_class_slot($name)
+=head2 $meta->inline_deinitialize_class_slot($name)
 
-=head2 inline_weaken_class_slot_value($name)
+=head2 $meta->inline_weaken_class_slot_value($name)
 
 These methods return code snippets for inlining.
 
@@ -317,19 +313,8 @@ you're doing some deep hacking. They are named as public methods
 solely because they are used by other meta roles and classes in this
 distribution.
 
-=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