From: gfx <gfuji@cpan.org>
Date: Thu, 3 Dec 2009 04:11:17 +0000 (+0900)
Subject: Fix has()
X-Git-Tag: 0.40_09~5
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=commitdiff_plain;h=34c8209c4eac1f2f710e1523ef3b3a248f7a08c8

Fix has()
---

diff --git a/lib/Mouse.pm b/lib/Mouse.pm
index 4449900..06a13a4 100644
--- a/lib/Mouse.pm
+++ b/lib/Mouse.pm
@@ -54,7 +54,7 @@ sub has {
         }
     }
     else{ # has foo => (...)
-        $meta->add_attribute($_ => @_);
+        $meta->add_attribute($name => @_);
     }
     return;
 }
diff --git a/lib/Mouse/Role.pm b/lib/Mouse/Role.pm
index 56b90b7..81208d5 100644
--- a/lib/Mouse/Role.pm
+++ b/lib/Mouse/Role.pm
@@ -49,7 +49,7 @@ sub has {
         }
     }
     else{ # has foo => (...)
-        $meta->add_attribute($_ => @_);
+        $meta->add_attribute($name => @_);
     }
     return;
 }