The Object type constraint filters out Regexp

diff --git a/lib/Moose/Util/TypeConstraints.pm b/lib/Moose/Util/TypeConstraints.pm
index d9a1dd3..9ad9c2e 100644 (file)
--- a/lib/Moose/Util/TypeConstraints.pm
+++ b/lib/Moose/Util/TypeConstraints.pm
@@ -372,7 +372,6 @@ sub duck_type {
             sub {
                 my $obj = $_;
                 my $class = blessed($obj) || return;
-                return if $class eq 'Regexp';
                 return 0 unless all { $obj->can($_) } @methods;
                 return 1;
             },