projects
/
gitmo/Mouse.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
Update Changes
[gitmo/Mouse.git]
/
lib
/
Mouse
/
Role.pm
diff --git
a/lib/Mouse/Role.pm
b/lib/Mouse/Role.pm
index
312f1ad
..
3b455de
100644
(file)
--- a/
lib/Mouse/Role.pm
+++ b/
lib/Mouse/Role.pm
@@
-32,7
+32,13
@@
do {
return sub { }
},
has => sub {
- return sub { }
+ my $caller = $CALLER;
+ return sub {
+ my $name = shift;
+ my @opts = @_;
+
+ $caller->meta->add_attribute($name => \@opts);
+ }
},
with => sub {
return sub { }