is_inline as an argument

diff --git a/lib/Class/MOP/Attribute.pm b/lib/Class/MOP/Attribute.pm
index fe26a9e..1133768 100644 (file)
--- 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 (file)
--- 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