X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=lib%2FMouse%2FMeta%2FClass.pm;h=4940eb06853f98e0411edf81ec858934d04d1529;hp=eab409f55468b3db438ccc1b4cafd8301de62608;hb=81fd550d4417451af22a45f26b93829b4515bb89;hpb=5176a3e41f75dc3f0de6049ac642087580f94680 diff --git a/lib/Mouse/Meta/Class.pm b/lib/Mouse/Meta/Class.pm index eab409f..4940eb0 100644 --- a/lib/Mouse/Meta/Class.pm +++ b/lib/Mouse/Meta/Class.pm @@ -264,10 +264,14 @@ sub make_immutable { return 1; } -sub make_mutable { not_supported } +sub make_mutable { + my($self) = @_; + $self->{is_immutable} = 0; + return; +} -sub is_immutable { $_[0]->{is_immutable} } -sub is_mutable { !$_[0]->{is_immutable} } +sub is_immutable; +sub is_mutable { !$_[0]->is_immutable } sub _install_modifier_pp{ my( $self, $type, $name, $code ) = @_; @@ -458,7 +462,7 @@ Mouse::Meta::Class - The Mouse class metaclass =head1 VERSION -This document describes Mouse version 0.42 +This document describes Mouse version 0.45 =head1 METHODS