use strict;
use warnings;
+our $VERSION = '0.12';
+
use MooseX::ClassAttribute::Trait::Attribute;
use Scalar::Util qw( blessed );
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;
=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.