X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMoose%2FMeta%2FTypeConstraint%2FClass.pm;h=8e99e4527589703b802cb110bc67745063c1e37a;hb=3975b592007cd8f44368f71cedc60fba86b5a1f2;hp=ff15e62f8be301691201d0bbf80a846ad377c93d;hpb=7487e61c093e01937e60f35118227afff19d420f;p=gitmo%2FMoose.git

diff --git a/lib/Moose/Meta/TypeConstraint/Class.pm b/lib/Moose/Meta/TypeConstraint/Class.pm
index ff15e62..8e99e45 100644
--- a/lib/Moose/Meta/TypeConstraint/Class.pm
+++ b/lib/Moose/Meta/TypeConstraint/Class.pm
@@ -18,9 +18,8 @@ my $inliner = sub {
     my $self = shift;
     my $val  = shift;
 
-    return
-        "Scalar::Util::blessed($val) && $val->isa("
-        . B::perlstring( $self->class ) . ')';
+    return 'Scalar::Util::blessed(' . $val . ')'
+             . ' && ' . $val . '->isa(' . B::perlstring($self->class) . ')';
 };
 
 sub new {