1 package Moose::Meta::Method::Accessor::Native::Array::Writer;
6 our $AUTHORITY = 'cpan:STEVAN';
10 with 'Moose::Meta::Method::Accessor::Native::Writer' => {
11 -excludes => ['_inline_coerce_new_values'],
13 'Moose::Meta::Method::Accessor::Native::Array',
14 'Moose::Meta::Method::Accessor::Native::Collection';
16 sub _new_members { '@_' }
20 my ($slot_access) = @_;
22 return '[ @{(' . $slot_access . ')} ]';