X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMouse.pm;h=6c09a7705462d99ea364512654c0724e79e97034;hb=2cea7a5fabbf2a81e0518c3f967706c9428afa8d;hp=0e3a586da3048a951adb7020b7f59b1bcbb0d454;hpb=0740bdfadd961417299539d25ee24b0c9e1938e5;p=gitmo%2FMouse.git diff --git a/lib/Mouse.pm b/lib/Mouse.pm index 0e3a586..6c09a77 100644 --- a/lib/Mouse.pm +++ b/lib/Mouse.pm @@ -4,9 +4,7 @@ use warnings; use 5.006; use base 'Exporter'; -our $VERSION = '0.32'; - -sub moose_version(){ 0.90 } # which Mouse is a subset of +our $VERSION = '0.33_01'; use Carp 'confess'; use Scalar::Util 'blessed'; @@ -38,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 {