From: Shawn M Moore <sartak@gmail.com>
Date: Thu, 25 Jun 2009 04:13:38 +0000 (-0400)
Subject: The Object type constraint filters out Regexp
X-Git-Tag: 0.84~34
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=76137842d7010ea2ed733584727c8871ff1d032e;p=gitmo%2FMoose.git

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
--- 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;
             },