X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMouse.pm;h=a18bef8f807e6152f0f01126b32d4fc447ccaeef;hb=ef9070cc6ee59ca3691f3765ad96ef0922e064ca;hp=af7bebc0e4cd0f8ea9b0786cc1750f7e8078d6ba;hpb=121acb8a89acd75e7a664241df7e8220d864c879;p=gitmo%2FMouse.git diff --git a/lib/Mouse.pm b/lib/Mouse.pm index af7bebc..a18bef8 100644 --- a/lib/Mouse.pm +++ b/lib/Mouse.pm @@ -4,7 +4,7 @@ use warnings; use 5.006; use base 'Exporter'; -our $VERSION = '0.32'; +our $VERSION = '0.33'; use Carp 'confess'; use Scalar::Util 'blessed'; @@ -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 {