class_of in Class type constraint
Shawn M Moore [Sat, 28 Mar 2009 20:56:09 +0000 (16:56 -0400)]
lib/Moose/Meta/TypeConstraint/Class.pm

index 4b9e183..3191a9f 100644 (file)
@@ -52,7 +52,7 @@ sub parents {
             Moose::Util::TypeConstraints::find_type_constraint($_) 
                 || 
             __PACKAGE__->new( class => $_, name => "__ANON__" )
-        } $self->class->meta->superclasses,
+        } Class::MOP::class_of($self->class)->superclasses,
     );
 }