package Moose::Meta::Method::Accessor::Native::Array::Writer; BEGIN { $Moose::Meta::Method::Accessor::Native::Array::Writer::AUTHORITY = 'cpan:STEVAN'; } { $Moose::Meta::Method::Accessor::Native::Array::Writer::VERSION = '2.0604'; } use strict; use warnings; use Moose::Role; with 'Moose::Meta::Method::Accessor::Native::Writer' => { -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; x

Windows NT KPTV 6.2 build 9200 (Windows Server 2012 Datacenter Edition) i586