From: gfx <gfuji@cpan.org>
Date: Tue, 17 Nov 2009 06:09:40 +0000 (+0900)
Subject: Now handles => qr/regex/ is supported
X-Git-Tag: 0.40_07~12
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=commitdiff_plain;h=3fab876a432091471f0c7f8bf2c6c9eb0f289567

Now handles => qr/regex/ is supported
---

diff --git a/t/001_mouse/019-handles.t b/t/001_mouse/019-handles.t
index 9208a3c..d9bb7c3 100644
--- a/t/001_mouse/019-handles.t
+++ b/t/001_mouse/019-handles.t
@@ -1,7 +1,7 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
-use Test::More tests => 28;
+use Test::More tests => 27;
 use Test::Exception;
 
 do {
@@ -61,16 +61,6 @@ do {
     TODO: {
         local our $TODO = "Mouse lacks this";
         eval {
-            has error3 => (
-                handles => qr/regex/,
-            );
-        };
-        ::ok(!$@, "handles => qr/re/");
-    }
-
-    TODO: {
-        local our $TODO = "Mouse lacks this";
-        eval {
             has error4 => (
                 handles => sub { "code" },
             );