From: gfx <gfuji@cpan.org>
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} }