X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FMooseCompat.pm;h=8bb95cfd7708ca7d8dbb5960ae809322a4375efe;hb=091253a6ca7876cc3fafa814e901dc0c1822a21d;hp=a93668316d5c545d5aa0f704a9a996826336a70b;hpb=fde8e43f95fe996fbc2a778aa259feeb04552171;p=gitmo%2FMouse.git

diff --git a/t/lib/MooseCompat.pm b/t/lib/MooseCompat.pm
index a936683..8bb95cf 100644
--- a/t/lib/MooseCompat.pm
+++ b/t/lib/MooseCompat.pm
@@ -9,10 +9,11 @@ $INC{'Mouse/Meta.pm'}          = __FILE__;
 $INC{'Mouse/Meta/Instance.pm'} = __FILE__;
 $INC{'Mouse/Deprecated.pm'}    = __FILE__;
 
-sub UNIVERSAL::DOES {
+
+*UNIVERSAL::DOES = sub {
     my($thing, $role) = @_;
-    $thing->isa($role) || Mouse::Util::does_role($thing, $role);
-}
+    $thing->isa($role);
+} unless UNIVERSAL->can('DOES');
 
 $Mouse::Deprecated::deprecated = $Mouse::Deprecated::deprecated = undef; # -w