1 package Class::MOP::Class::Immutable::Trait;
9 use Scalar::Util 'blessed', 'weaken';
11 our $VERSION = '0.92';
12 $VERSION = eval $VERSION;
13 our $AUTHORITY = 'cpan:STEVAN';
15 # the original class of the metaclass instance
16 sub get_mutable_metaclass_name { $_[0]{__immutable}{original_class} }
18 sub immutable_options { %{ $_[0]{__immutable}{options} } }
21 sub is_immutable { 1 }
23 sub _immutable_metaclass { ref $_[1] }
28 confess "This method is read-only" if @_;
32 sub _immutable_cannot_call {
33 Carp::confess "This method cannot be called on an immutable instance";
36 sub add_method { _immutable_cannot_call() }
37 sub alias_method { _immutable_cannot_call() }
38 sub remove_method { _immutable_cannot_call() }
39 sub add_attribute { _immutable_cannot_call() }
40 sub remove_attribute { _immutable_cannot_call() }
41 sub remove_package_symbol { _immutable_cannot_call() }
42 sub add_package_symbol { _immutable_cannot_call() }
44 sub class_precedence_list {
47 @{ $self->{__immutable}{class_precedence_list}
48 ||= [ $self->$orig ] };
54 @{ $self->{__immutable}{linearized_isa} ||= [ $self->$orig ] };
60 @{ $self->{__immutable}{get_all_methods} ||= [ $self->$orig ] };
63 sub get_all_method_names {
66 @{ $self->{__immutable}{get_all_method_names} ||= [ $self->$orig ] };
69 sub get_all_attributes {
72 @{ $self->{__immutable}{get_all_attributes} ||= [ $self->$orig ] };
75 sub get_meta_instance {
78 $self->{__immutable}{get_meta_instance} ||= $self->$orig;
84 $self->{__immutable}{get_method_map} ||= $self->$orig;
95 Class::MOP::Class::Immutable::Trait - Implements immutability for metaclass objects
99 This class provides a pseudo-trait that is applied to immutable metaclass
100 objects. In reality, it is simply a parent class.
102 It implements caching and read-only-ness for various metaclass methods.
106 Yuval Kogman E<lt>nothingmuch@cpan.orgE<gt>
108 =head1 COPYRIGHT AND LICENSE
110 Copyright 2009 by Infinity Interactive, Inc.
112 L<http://www.iinteractive.com>
114 This library is free software; you can redistribute it and/or modify
115 it under the same terms as Perl itself.