From: Matt S Trout <mst@shadowcat.co.uk>
Date: Sun, 5 May 2013 18:04:53 +0000 (+0000)
Subject: restore init_arg => undef checking
X-Git-Tag: v1.003000~75
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=83ec49f2541cf72e69dc46887e7a1f0ea46ff5c2;p=gitmo%2FMoo.git

restore init_arg => undef checking
---

diff --git a/lib/Moo/HandleMoose.pm b/lib/Moo/HandleMoose.pm
index 30a97c3..7563179 100644
--- a/lib/Moo/HandleMoose.pm
+++ b/lib/Moo/HandleMoose.pm
@@ -106,6 +106,7 @@ sub inject_real_metaclass_for {
         (
           (grep { $_->has_init_arg }
              $meta->attribute_metaclass->meta->get_all_attributes),
+          grep { $_->has_init_arg ? defined($_->init_arg) : 1 }
           map {
             my $meta = Moose::Util::resolve_metatrait_alias('Attribute', $_)
                          ->meta;