X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FClass%2FMOP.pm;h=fabda7d55cfd9e4e4dceb99144a213f173594a86;hb=28a82ddae9835be042c809198885582ba32b9583;hp=5fee94004a6557ef790fc8eed8a43e86e087210e;hpb=4c706fe5d8cb5da96cad170be700cb28a7ab867d;p=gitmo%2FClass-MOP.git

diff --git a/lib/Class/MOP.pm b/lib/Class/MOP.pm
index 5fee940..fabda7d 100644
--- a/lib/Class/MOP.pm
+++ b/lib/Class/MOP.pm
@@ -25,15 +25,11 @@ BEGIN {
         ? sub () { 0 }
         : sub () { 1 };
 
-    *DEBUG_NO_META = ($ENV{DEBUG_NO_META})
-        ? sub () { 1 }
-        : sub () { 0 };
-
     # this is either part of core or set up appropriately by MRO::Compat
     *check_package_cache_flag = \&mro::get_pkg_gen;
 }
 
-our $VERSION   = '1.08';
+our $VERSION   = '1.09';
 our $XS_VERSION = $VERSION;
 $VERSION = eval $VERSION;
 our $AUTHORITY = 'cpan:STEVAN';
@@ -668,6 +664,12 @@ Class::MOP::Instance->meta->add_attribute(
     ),
 );
 
+## --------------------------------------------------------
+## Class::MOP::Object
+
+# need to replace the meta method there with a real meta method object
+Class::MOP::Object->meta->_add_meta_method;
+
 require Class::MOP::Deprecated unless our $no_deprecated;
 
 # we need the meta instance of the meta instance to be created now, in order
@@ -704,6 +706,8 @@ $_->meta->make_immutable(
     Class::MOP::Method::Accessor
     Class::MOP::Method::Constructor
     Class::MOP::Method::Wrapped
+
+    Class::MOP::Method::Meta
 /;
 
 $_->meta->make_immutable(