X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=lib%2FMouse%2FAttribute.pm;h=325c24de4b361b6250e497e23ce4cde07fdb5fd1;hp=2c8cc5b27f021674625d2de58225cf8bbde9194e;hb=7ee01d77a48acfaaf20e6c2488781344953dec78;hpb=b250019157d54598932f9e3e2a82f56c9a8937dd

diff --git a/lib/Mouse/Attribute.pm b/lib/Mouse/Attribute.pm
index 2c8cc5b..325c24d 100644
--- a/lib/Mouse/Attribute.pm
+++ b/lib/Mouse/Attribute.pm
@@ -9,7 +9,8 @@ sub new {
     my $class = shift;
     my %args  = @_;
 
-    $args{init_arg} ||= $args{name};
+    $args{init_arg} = $args{name}
+        unless exists $args{init_arg};
     $args{is} ||= '';
 
     bless \%args, $class;