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

diff --git a/lib/Mouse/PurePerl.pm b/lib/Mouse/PurePerl.pm
index f2802db..de57492 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';
@@ -155,6 +155,7 @@ sub get_roles { $_[0]->{roles} }
 package
     Mouse::Meta::Attribute;
 
+use Mouse::Meta::Method::Accessor;
 
 # readers