X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMoose%2FMeta%2FTypeConstraint%2FDuckType.pm;h=fa70470030356bc9a348bd2fc9f8cf634854fddb;hb=3975b592007cd8f44368f71cedc60fba86b5a1f2;hp=8bad0fb41eb00b1783e5249b050a3882a2d59170;hpb=477a812e8edd6ee5ebee1a3b7b90cfeac3b2b9f7;p=gitmo%2FMoose.git

diff --git a/lib/Moose/Meta/TypeConstraint/DuckType.pm b/lib/Moose/Meta/TypeConstraint/DuckType.pm
index 8bad0fb..fa70470 100644
--- 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 {