1 package Moose::Meta::Method::Accessor::Native::Array::Writer;
7 $VERSION = eval $VERSION;
8 our $AUTHORITY = 'cpan:STEVAN';
12 with 'Moose::Meta::Method::Accessor::Native::Writer',
13 'Moose::Meta::Method::Accessor::Native::Array',
14 'Moose::Meta::Method::Accessor::Native::Collection';
16 sub _new_members {'@_'}
18 sub _inline_copy_old_value {
19 my ( $self, $slot_access ) = @_;
21 return '[ @{(' . $slot_access . ')} ]';