factor out meta method generation

[gitmo/Class-MOP.git] / lib / Class / MOP.pm

diff --git a/lib/Class/MOP.pm b/lib/Class/MOP.pm
index 3a29be4..3cbe4c4 100644 (file)
--- 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';
@@ -704,6 +700,8 @@ $_->meta->make_immutable(
     Class::MOP::Method::Accessor
     Class::MOP::Method::Constructor
     Class::MOP::Method::Wrapped
+
+    Class::MOP::Method::Meta
 /;
 
 $_->meta->make_immutable(
@@ -1134,7 +1132,7 @@ L<http://citeseer.ist.psu.edu/37617.html>
 
 =item L<http://svn.openfoundry.org/pugs/misc/Perl-MetaModel/>
 
-=item L<http://svn.openfoundry.org/pugs/perl5/Perl6-ObjectSpace>
+=item L<http://github.com/perl6/p5-modules/tree/master/Perl6-ObjectSpace/>
 
 =back