X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=lib%2FMouse.pm;fp=lib%2FMouse.pm;h=a18bef8f807e6152f0f01126b32d4fc447ccaeef;hp=6e208e788483192128be437d0d1134545baf7f8c;hb=ef9070cc6ee59ca3691f3765ad96ef0922e064ca;hpb=bfaf1f2bd008b9a7958d2bbc8b4e98d10d1cfa5e diff --git a/lib/Mouse.pm b/lib/Mouse.pm index 6e208e7..a18bef8 100644 --- a/lib/Mouse.pm +++ b/lib/Mouse.pm @@ -6,8 +6,6 @@ use base 'Exporter'; our $VERSION = '0.33'; -sub moose_version(){ 0.90 } # which Mouse is a subset of - 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 {