Use private _class_attribute_map method
Dave Rolsky [Tue, 9 Feb 2010 23:22:03 +0000 (17:22 -0600)]
lib/MooseX/ClassAttribute/Trait/Class.pm

index 3f7f35f..d6fb58c 100644 (file)
@@ -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;