From: gfx <gfuji@cpan.org>
Date: Mon, 8 Feb 2010 04:39:40 +0000 (+0900)
Subject: Correct 'does' method
X-Git-Tag: 0.50~2
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=commitdiff_plain;h=b64e20073d4f273ede4e5c8e9400f889a8f9938f

Correct 'does' method
---

diff --git a/lib/Mouse/Util.pm b/lib/Mouse/Util.pm
index 3ffa375..4908863 100644
--- a/lib/Mouse/Util.pm
+++ b/lib/Mouse/Util.pm
@@ -350,8 +350,9 @@ sub dump :method {
 }
 
 # general does() method
-sub does :method;
-*does = \&does_role; # alias
+sub does :method {
+    goto &does_role;
+}
 
 1;
 __END__