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 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
=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(...)
=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.