make lack of a meta method testable

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

diff --git a/lib/Class/MOP.pm b/lib/Class/MOP.pm
index cbae697..3a29be4 100644 (file)
--- a/lib/Class/MOP.pm
+++ b/lib/Class/MOP.pm
@@ -25,6 +25,10 @@ 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;
 }