more readable inlined code

[gitmo/Moose.git] / lib / Moose / Meta / TypeConstraint / Class.pm

diff --git a/lib/Moose/Meta/TypeConstraint/Class.pm b/lib/Moose/Meta/TypeConstraint/Class.pm
index ff15e62..8e99e45 100644 (file)
--- 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 {