more readable inlined code

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

diff --git a/lib/Moose/Meta/TypeConstraint/DuckType.pm b/lib/Moose/Meta/TypeConstraint/DuckType.pm
index 8bad0fb..fa70470 100644 (file)
--- a/lib/Moose/Meta/TypeConstraint/DuckType.pm
+++ b/lib/Moose/Meta/TypeConstraint/DuckType.pm
@@ -21,11 +21,12 @@ my $inliner = sub {
     my $self = shift;
     my $val  = shift;
 
-    return
-          "Scalar::Util::blessed($val)"
-        . qq{&& Scalar::Util::blessed($val) ne 'Regexp'}
-        . "&& &List::MoreUtils::all( sub { $val->can(\$_) }, "
-        . ( join ', ', map { B::perlstring($_) } @{ $self->methods } ) . ' )';
+    return 'Scalar::Util::blessed(' . $val . ') '
+             . '&& Scalar::Util::blessed(' . $val . ') ne "Regexp" '
+             . '&& &List::MoreUtils::all('
+                 . 'sub { ' . $val . '->can($_) }, '
+                 . join(', ', map { B::perlstring($_) } @{ $self->methods })
+             . ')';
 };
 
 sub new {