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

class_of role TC is_subtype_of
---

diff --git a/lib/Moose/Meta/TypeConstraint/Role.pm b/lib/Moose/Meta/TypeConstraint/Role.pm
index f9537fe..8c5098c 100644
--- a/lib/Moose/Meta/TypeConstraint/Role.pm
+++ b/lib/Moose/Meta/TypeConstraint/Role.pm
@@ -88,7 +88,7 @@ sub is_subtype_of {
     if ( $type->isa(__PACKAGE__) ) {
         # if $type_or_name_or_role isn't a role, it might be the TC name of another ::Role type
         # or it could also just be a type object in this branch
-        return $self->role->meta->does_role( $type->role );
+        return Class::MOP::class_of($self->role)->does_role( $type->role );
     } else {
         # the only other thing we are a subtype of is Object
         $self->SUPER::is_subtype_of($type);