version bump ::Meta

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

diff --git a/lib/Class/MOP/Method/Meta.pm b/lib/Class/MOP/Method/Meta.pm
index e339832..d1bc316 100644 (file)
--- a/lib/Class/MOP/Method/Meta.pm
+++ b/lib/Class/MOP/Method/Meta.pm
@@ -7,11 +7,11 @@ use warnings;
 use Carp         'confess';
 use Scalar::Util 'blessed';
 
-our $VERSION   = '1.08';
+our $VERSION   = '1.09';
 $VERSION = eval $VERSION;
 our $AUTHORITY = 'cpan:STEVAN';
 
-use constant DEBUG_NO_META => $ENV{DEBUG_NO_META};
+use constant DEBUG_NO_META => $ENV{DEBUG_NO_META} ? 1 : 0;
 
 use base 'Class::MOP::Method';
 
@@ -31,6 +31,7 @@ sub _generate_meta_method {
                 # it's okay to call meta methods on metaclasses, since we
                 # explicitly ask for them
                 if !$_[0]->isa('Class::MOP::Object')
+                && !$_[0]->isa('Class::MOP::Mixin')
                 # it's okay if the test itself calls ->meta, we only care about
                 # if the mop internals call ->meta
                 && $method_self->_is_caller_mop_internal(scalar caller);