use Moose::Role;
-with 'Moose::Meta::Method::Accessor::Native::Array::Writer' =>
- { -excludes => ['_inline_optimized_set_new_value'] };
+with 'Moose::Meta::Method::Accessor::Native::Array::Writer' => {
+ -excludes => [
+ qw(
+ _inline_optimized_set_new_value
+ _return_value
+ )
+ ]
+};
sub _adds_members { 1 }
return "unshift \@{ $slot_access }, \@_";
}
+sub _return_value {
+ my ( $self, $slot_access ) = @_;
+
+ return "return scalar \@{ $slot_access }";
+}
+
no Moose::Role;
1;