BEGIN {
$Moose::Meta::Method::Accessor::Native::Array::Writer::AUTHORITY
=
'cpan:STEVAN'
;
}
BEGIN {
$Moose::Meta::Method::Accessor::Native::Array::Writer::VERSION
=
'2.0102'
;
# TRIAL
}
use
strict;
use
warnings;
use
Moose::Role;
-excludes
=> [
'_inline_coerce_new_values'
],
},
'Moose::Meta::Method::Accessor::Native::Array'
,
'Moose::Meta::Method::Accessor::Native::Collection'
;
sub
_new_members {
'@_'
}
sub
_copy_old_value {
my
$self
=
shift
;
my
(
$slot_access
) =
@_
;
return
'[ @{('
.
$slot_access
.
')} ]'
;
}
1;