X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMoose%2FRole.pm;h=45034a2fb3f9ea981e3b25b41c7a0f040ed1753b;hb=c8cf9aaaa9bc89f8a889c3c17d163034dc59a410;hp=3ca47109781543f2a0bf2a2b8dbd2ae66b4a718c;hpb=a6f14567c1d3e1b979aa3f312530ba739b19a2e6;p=gitmo%2FMoose.git

diff --git a/lib/Moose/Role.pm b/lib/Moose/Role.pm
index 3ca4710..45034a2 100644
--- a/lib/Moose/Role.pm
+++ b/lib/Moose/Role.pm
@@ -10,7 +10,7 @@ use Sub::Name    'subname';
 
 use Sub::Exporter;
 
-our $VERSION = '0.05';
+our $VERSION = '0.06';
 
 use Moose ();
 
@@ -29,6 +29,7 @@ use Moose::Util::TypeConstraints;
         subtype $role
             => as 'Role'
             => where { $_->does($role) }
+            => optimize_as { blessed($_[0]) && $_[0]->can('does') && $_[0]->does($role) }  
         unless find_type_constraint($role);        
 
     	my $meta;