X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FClassAttribute%2FTrait%2FClass.pm;h=c86e0fc67e5fcc5aa6f9f826cd649672d5c55f0f;hb=refs%2Ftags%2F0.13;hp=3bb887c4c025d6d28fc449bccac7d02e36eeae01;hpb=63fcc5089af76b1738850b39823dab675626ebfa;p=gitmo%2FMooseX-ClassAttribute.git

diff --git a/lib/MooseX/ClassAttribute/Trait/Class.pm b/lib/MooseX/ClassAttribute/Trait/Class.pm
index 3bb887c..c86e0fc 100644
--- a/lib/MooseX/ClassAttribute/Trait/Class.pm
+++ b/lib/MooseX/ClassAttribute/Trait/Class.pm
@@ -3,6 +3,8 @@ package MooseX::ClassAttribute::Trait::Class;
 use strict;
 use warnings;
 
+our $VERSION   = '0.13';
+
 use MooseX::ClassAttribute::Trait::Attribute;
 use Scalar::Util qw( blessed );
 
@@ -129,8 +131,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;
@@ -231,7 +233,7 @@ __END__
 
 =head1 NAME
 
-MooseX::ClassAttribute::Trait::Class - A metaclass role for classes with class attributes
+MooseX::ClassAttribute::Trait::Class - A trait for classes with class attributes
 
 =head1 SYNOPSIS
 
@@ -257,8 +259,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 +298,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.
 
@@ -327,7 +327,7 @@ See L<MooseX::ClassAttribute> for details.
 
 =head1 COPYRIGHT & LICENSE
 
-Copyright 2007-2008 Dave Rolsky, All Rights Reserved.
+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.