Make the duck type constraint closure check for blessing

It's what the inlined variant already does. Synchronise with it.

diff --git a/lib/Moose/Meta/TypeConstraint/DuckType.pm b/lib/Moose/Meta/TypeConstraint/DuckType.pm
index a6b13b4..09f0b86 100644 (file)
--- a/lib/Moose/Meta/TypeConstraint/DuckType.pm
+++ b/lib/Moose/Meta/TypeConstraint/DuckType.pm
@@ -39,7 +39,7 @@ sub new {
     my @methods = @{ $args{methods} };
     $args{constraint} = sub {
         my $val = $_[0];
-        blessed($val) ne 'Regexp'
+        blessed($val) && blessed($val) ne 'Regexp'
             && all { $val->can($_) } @methods;
     };