1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
package MooseX::ClassAttribute::Meta::Role::Attribute;
use strict;
use warnings;
our $VERSION = '0.29';
use namespace::autoclean;
use Moose;
use List::Util 1.45 'uniq';
extends 'Moose::Meta::Role::Attribute';
sub new {
my ( $class, $name, %options ) = @_;
$options{traits} = [
uniq( @{ $options{traits} || [] } ),
'MooseX::ClassAttribute::Trait::Attribute'
];
return $class->SUPER::new( $name, %options );
}
1;
# ABSTRACT: An attribute metaclass for class attributes in roles
__END__
=pod
=encoding UTF-8
=head1 NAME
MooseX::ClassAttribute::Meta::Role::Attribute - An attribute metaclass for class attributes in roles
=head1 VERSION
version 0.29
=head1 DESCRIPTION
This class overrides L<Moose::Meta::Role::Attribute> to support class
attribute declaration in roles.
=head1 BUGS
See L<MooseX::ClassAttribute> for details.
Bugs may be submitted through L<the RT bug tracker|http://rt.cpan.org/Public/Dist/Display.html?Name=MooseX-ClassAttribute>
(or L<bug-moosex-classattribute@rt.cpan.org|mailto:bug-moosex-classattribute@rt.cpan.org>).
I am also usually active on IRC as 'drolsky' on C<irc://irc.perl.org>.
=head1 AUTHOR
Dave Rolsky <autarch@urth.org>
=head1 COPYRIGHT AND LICENCE
This software is Copyright (c) 2016 by Dave Rolsky.
This is free software, licensed under:
The Artistic License 2.0 (GPL Compatible)
=cut
|
