X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=lib%2FMouse%2FObject.pm;h=e72542c5aed460adb60d9872462b86b8a5c0a7f2;hp=fbd19ed425986160b6ba26a425f1d35e476be307;hb=f3c1ccc818bb5c50c50e17b9141b91c09b077b04;hpb=3645b3164ce4e4fafa8ee65c515281175da0efe7 diff --git a/lib/Mouse/Object.pm b/lib/Mouse/Object.pm index fbd19ed..e72542c 100644 --- a/lib/Mouse/Object.pm +++ b/lib/Mouse/Object.pm @@ -13,7 +13,7 @@ sub new { my $instance = bless {}, $class; for my $attribute (values %{ $class->meta->get_attribute_map }) { - my $key = $attribute->init_arg; + my $key = $attribute->name; my $default; if (!exists($args{$key})) {