From: Yuval Kogman <nothingmuch@woobling.org>
Date: Tue, 8 Jan 2008 11:53:04 +0000 (+0000)
Subject: keep track of the transformer in the immutable class
X-Git-Tag: 0_51~9^2
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9f3ff885427164fa88a2b00e27050d256d21cf83;p=gitmo%2FClass-MOP.git

keep track of the transformer in the immutable class
---

diff --git a/lib/Class/MOP/Immutable.pm b/lib/Class/MOP/Immutable.pm
index 8ee7567..bc521da 100644
--- a/lib/Class/MOP/Immutable.pm
+++ b/lib/Class/MOP/Immutable.pm
@@ -234,6 +234,8 @@ sub create_methods_for_immutable_metaclass {
 
     $methods{get_mutable_metaclass_name} = sub { (shift)->{'___original_class'} };
 
+    $methods{immutable_transformer} = sub { $self };
+
     return \%methods;
 }