From: gfx <gfuji@cpan.org>
Date: Tue, 18 Aug 2009 07:31:55 +0000 (+0900)
Subject: is_inline as an argument
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d26cfd26c3787cbd2a6b5de2751cabda4b0795cc;p=gitmo%2FClass-MOP.git

is_inline as an argument
---

diff --git a/lib/Class/MOP/Attribute.pm b/lib/Class/MOP/Attribute.pm
index fe26a9e..1133768 100644
--- a/lib/Class/MOP/Attribute.pm
+++ b/lib/Class/MOP/Attribute.pm
@@ -392,6 +392,7 @@ sub _process_accessors {
                 package_name         => $metaclass->name,
                 name                 => $accessor,
                 definition_context   => $method_ctx,
+                is_inline            => $metaclass->instance_metaclass->is_inlinable,
             );
         };
         confess "Could not create the '$type' method for " . $self->name . " because : $@" if $@;
diff --git a/lib/Class/MOP/Method/Accessor.pm b/lib/Class/MOP/Method/Accessor.pm
index 76bfe5e..7fcbc31 100644
--- a/lib/Class/MOP/Method/Accessor.pm
+++ b/lib/Class/MOP/Method/Accessor.pm
@@ -59,7 +59,7 @@ sub _new {
         original_method      => $params->{original_method},
 
         # inherit from Class::MOP::Generated
-        is_inline            => $params->{associated_metaclass}->instance_metaclass->is_inlinable,
+        is_inline            => $params->{is_inline},
         definition_context   => $params->{definition_context},
 
         # defined in this class