forgot we had List::MoreUtils

[gitmo/Moose.git] / lib / Moose / Util / TypeConstraints.pm

diff --git a/lib/Moose/Util/TypeConstraints.pm b/lib/Moose/Util/TypeConstraints.pm
index bf70f32..b792f59 100644 (file)
--- a/lib/Moose/Util/TypeConstraints.pm
+++ b/lib/Moose/Util/TypeConstraints.pm
@@ -374,7 +374,7 @@ sub duck_type {
             'Object',
             sub {
                 my $obj = $_;
-                for (@methods) { return 0 unless $obj->can($_) }
+                return 0 unless all { $obj->can($_) } @methods;
                 return 1;
             },
             sub {