From: gfx 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?a=commitdiff_plain;h=34c8209c4eac1f2f710e1523ef3b3a248f7a08c8;p=gitmo%2FMouse.git 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; }