From: gfx <gfuji@cpan.org>
Date: Mon, 26 Oct 2009 07:12:48 +0000 (+0900)
Subject: Fix a typo in PurePerl.pm
X-Git-Tag: 0.40_01~10
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=commitdiff_plain;h=186fae62f5cb2d451d88e58196b93f42e68d90df

Fix a typo in PurePerl.pm
---

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';