From: Chris Prather <cprather@hdpublishing.com>
Date: Fri, 27 Mar 2009 22:16:55 +0000 (-0400)
Subject: forgot we had List::MoreUtils
X-Git-Tag: 0.73_01~41
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=21e1632721979ae5fb66e40843be052a0cc4b97d;p=gitmo%2FMoose.git

forgot we had List::MoreUtils
---

diff --git a/lib/Moose/Util/TypeConstraints.pm b/lib/Moose/Util/TypeConstraints.pm
index bf70f32..b792f59 100644
--- 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 {