projects
/
gitmo/Mouse.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
Make has_attribute actually work
[gitmo/Mouse.git]
/
lib
/
Mouse
/
Meta
/
Role.pm
diff --git
a/lib/Mouse/Meta/Role.pm
b/lib/Mouse/Meta/Role.pm
index
f04dd18
..
92b39c1
100644
(file)
--- a/
lib/Mouse/Meta/Role.pm
+++ b/
lib/Mouse/Meta/Role.pm
@@
-32,5
+32,8
@@
sub new {
sub name { $_[0]->{name} }
+sub has_attribute { exists $_[0]->{attributes}->{$_[1]} }
+sub add_attribute { $_[0]->{attributes}->{$_[1]} = $_[2] }
+
1;