bump version to 0.81
[gitmo/Moose.git] / lib / Moose / Meta / Class / Immutable / Trait.pm
CommitLineData
0fa70d03 1package Moose::Meta::Class::Immutable::Trait;
2
3use strict;
4use warnings;
5
6use Class::MOP;
7
eae0508f 8our $VERSION = '0.81';
16c237c1 9$VERSION = eval $VERSION;
10our $AUTHORITY = 'cpan:STEVAN';
11
0fa70d03 12use base 'Class::MOP::Class::Immutable::Trait';
13
14sub add_role { shift->_immutable_cannot_call }
15
aaf4b735 16sub calculate_all_roles {
17 @{ $_[0]{__immutable}{calculate_all_roles} ||= [ shift->next::method ] };
18}
0fa70d03 19
201;
2dc27d6f 21
22__END__
23
24=pod
25
26=head1 NAME
27
28Moose::Meta::Class::Immutable::Trait - Implements immutability for metaclass objects
29
30=head1 DESCRIPTION
31
32This class makes some Moose-specific metaclass methods immutable. This
33is deep guts.
34
35=head1 AUTHOR
36
37Yuval Kogman E<lt>nothingmuch@cpan.orgE<gt>
38
39=head1 COPYRIGHT AND LICENSE
40
41Copyright 2009 by Infinity Interactive, Inc.
42
43L<http://www.iinteractive.com>
44
45This library is free software; you can redistribute it and/or modify
46it under the same terms as Perl itself.
47
48=cut
49