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