From: Matt S Trout <mst@shadowcat.co.uk>
Date: Sun, 5 May 2013 18:18:39 +0000 (+0000)
Subject: fuck you, Moose::Meta::Role::Attribute. in the ear. with a rusty spork.
X-Git-Tag: v1.003000~73
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3412023cc02e3f5e979a38e482d502b15b3d1c51;p=gitmo%2FMoo.git

fuck you, Moose::Meta::Role::Attribute. in the ear. with a rusty spork.
---

diff --git a/lib/Moo/HandleMoose.pm b/lib/Moo/HandleMoose.pm
index 7563179..635df60 100644
--- a/lib/Moo/HandleMoose.pm
+++ b/lib/Moo/HandleMoose.pm
@@ -106,7 +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 }
+          grep { exists($_->{init_arg}) ? defined($_->init_arg) : 1 }
           map {
             my $meta = Moose::Util::resolve_metatrait_alias('Attribute', $_)
                          ->meta;