X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMouse%2FPurePerl.pm;h=4ce4c1daf8701158ca62e8ad636d6fe1f9d25c11;hb=186fae62f5cb2d451d88e58196b93f42e68d90df;hp=f2802dbb5f057854fd5b6edbb9f4d92d50117db1;hpb=1d5ecd5f15a0f418bee471c00af2357ba63b99ba;p=gitmo%2FMouse.git

diff --git a/lib/Mouse/PurePerl.pm b/lib/Mouse/PurePerl.pm
index f2802db..4ce4c1d 100644
--- a/lib/Mouse/PurePerl.pm
+++ b/lib/Mouse/PurePerl.pm
@@ -80,7 +80,7 @@ package
 sub _generate_class_type_for{
     my($for_class, $name) = @_;
 
-    my $predicate = sub{ Scalar::Util::blessd($_[0]) && $_[0]->isa($for_class) };
+    my $predicate = sub{ Scalar::Util::blessed($_[0]) && $_[0]->isa($for_class) };
 
     if(defined $name){
         no strict 'refs';