From: gfx Date: Wed, 16 Dec 2009 08:41:17 +0000 (+0900) Subject: Implement make_mutable :) X-Git-Tag: 0.45~21 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=32490a728e1a7ec2ea29be2b87a7ed39a6e8f496;p=gitmo%2FMouse.git Implement make_mutable :) --- diff --git a/lib/Mouse/Meta/Class.pm b/lib/Mouse/Meta/Class.pm index 5c1fca2..08bb9d3 100644 --- a/lib/Mouse/Meta/Class.pm +++ b/lib/Mouse/Meta/Class.pm @@ -264,7 +264,11 @@ 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} }