X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FMooseCompat.pm;h=2a8b19fc0a7bcbdaf16d9b8dd8cba8edfd89a28c;hb=fd2b172a4657cb6cc47976d2e66cdba4bdfa579d;hp=8bb95cfd7708ca7d8dbb5960ae809322a4375efe;hpb=3eae79dfec672f42f39b09d21777f714b2ac4ff3;p=gitmo%2FMouse.git diff --git a/t/lib/MooseCompat.pm b/t/lib/MooseCompat.pm index 8bb95cf..2a8b19f 100644 --- a/t/lib/MooseCompat.pm +++ b/t/lib/MooseCompat.pm @@ -1,5 +1,8 @@ package MooseCompat; # Moose compatible methods/functions + +use Test::Builder (); # should load Test::Builder first + use Mouse (); use Mouse::Util::MetaRole; use Mouse::Meta::Method; @@ -9,7 +12,6 @@ $INC{'Mouse/Meta.pm'} = __FILE__; $INC{'Mouse/Meta/Instance.pm'} = __FILE__; $INC{'Mouse/Deprecated.pm'} = __FILE__; - *UNIVERSAL::DOES = sub { my($thing, $role) = @_; $thing->isa($role);