1 package MooseX::ClassAttribute::Meta::Role::Attribute;
8 use List::MoreUtils qw( uniq );
10 use namespace::autoclean;
13 extends 'Moose::Meta::Role::Attribute';
16 my ( $class, $name, %options ) = @_;
19 uniq( @{ $options{traits} || [] } ),
20 'MooseX::ClassAttribute::Trait::Attribute'
23 return $class->SUPER::new( $name, %options );
34 MooseX::ClassAttribute::Meta::Role::Attribute - An attribute metaclass for class attributes in roles
38 This class overrides L<Moose::Meta::Role::Attribute> to support class
39 attribute declaration in roles.
43 Dave Rolsky, C<< <autarch@urth.org> >>
47 See L<MooseX::ClassAttribute> for details.
49 =head1 COPYRIGHT & LICENSE
51 Copyright 2007-2010 Dave Rolsky, All Rights Reserved.
53 This program is free software; you can redistribute it and/or modify
54 it under the same terms as Perl itself.