From: Shawn M Moore <sartak@gmail.com>
Date: Sat, 28 Mar 2009 20:58:59 +0000 (-0400)
Subject: class_of role TC parents
X-Git-Tag: 0.73_01~36^2~18
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1551760baf46aebc5243059b1c9499ff70c1c2f7;p=gitmo%2FMoose.git

class_of role TC parents
---

diff --git a/lib/Moose/Meta/TypeConstraint/Role.pm b/lib/Moose/Meta/TypeConstraint/Role.pm
index 00b60ac..2e531df 100644
--- a/lib/Moose/Meta/TypeConstraint/Role.pm
+++ b/lib/Moose/Meta/TypeConstraint/Role.pm
@@ -50,7 +50,7 @@ sub parents {
             Moose::Util::TypeConstraints::find_type_constraint($_) 
                 || 
             __PACKAGE__->new( role => $_, name => "__ANON__" )
-        } @{ $self->role->meta->get_roles },
+        } @{ Class::MOP::class_of($self->role)->get_roles },
     );
 }