From: Shawn M Moore <sartak@gmail.com>
Date: Sat, 28 Mar 2009 20:56:09 +0000 (-0400)
Subject: class_of in Class type constraint
X-Git-Tag: 0.73_01~36^2~19
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1d9c3b758874ac9ecd67ddf4a79621af543434ce;p=gitmo%2FMoose.git

class_of in Class type constraint
---

diff --git a/lib/Moose/Meta/TypeConstraint/Class.pm b/lib/Moose/Meta/TypeConstraint/Class.pm
index 4b9e183..3191a9f 100644
--- a/lib/Moose/Meta/TypeConstraint/Class.pm
+++ b/lib/Moose/Meta/TypeConstraint/Class.pm
@@ -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,
     );
 }