projects
/
gitmo/Mouse.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
Refactor many many things
[gitmo/Mouse.git]
/
lib
/
Mouse.pm
diff --git
a/lib/Mouse.pm
b/lib/Mouse.pm
index
af7bebc
..
1e7e5d0
100644
(file)
--- a/
lib/Mouse.pm
+++ b/
lib/Mouse.pm
@@
-36,7
+36,9
@@
sub extends { Mouse::Meta::Class->initialize(scalar caller)->superclasses(@_) }
sub has {
my $meta = Mouse::Meta::Class->initialize(scalar caller);
- $meta->add_attribute(@_);
+ my $name = shift;
+
+ $meta->add_attribute($_ => @_) for ref($name) ? @{$name} : $name;
}
sub before {