X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMouse%2FRole.pm;h=59cccd228fdaa3f286b52ce21ef365b49f4f7045;hb=284ca75b14da9b2685a78b7a0d4228512c8575c6;hp=4f02065195fa364e6477f5fae69fc3939cc42971;hpb=2cb8b71324c7f194f869b2633b2fd7be1e669c60;p=gitmo%2FMouse.git

diff --git a/lib/Mouse/Role.pm b/lib/Mouse/Role.pm
index 4f02065..59cccd2 100644
--- a/lib/Mouse/Role.pm
+++ b/lib/Mouse/Role.pm
@@ -9,8 +9,6 @@ use Scalar::Util 'blessed';
 use Mouse::Util qw(load_class not_supported);
 use Mouse ();
 
-our @EXPORT = qw(before after around super override inner augment has extends with requires excludes confess blessed);
-
 our @EXPORT = qw(
     extends with
     has
@@ -92,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  {