all does what we want anyway, no need for the weird if/return stuff

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