X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=lib%2FMouse%2FRole.pm;h=59cccd228fdaa3f286b52ce21ef365b49f4f7045;hp=df249a8f330eb3f94627b2cb1de62d7c8348354c;hb=1b9e472d8c7e704eced9b2ea83194f83f0265018;hpb=121acb8a89acd75e7a664241df7e8220d864c879

diff --git a/lib/Mouse/Role.pm b/lib/Mouse/Role.pm
index df249a8..59cccd2 100644
--- a/lib/Mouse/Role.pm
+++ b/lib/Mouse/Role.pm
@@ -90,11 +90,9 @@ sub augment {
 
 sub has {
     my $meta = Mouse::Meta::Role->initialize(scalar caller);
-
     my $name = shift;
-    my %opts = @_;
 
-    $meta->add_attribute($name => \%opts);
+    $meta->add_attribute($_ => @_) for ref($name) ? @{$name} : $name;
 }
 
 sub extends  {