lib/Moose/Meta/Method/Accessor/Native/Array/Writer.pm

   1 package Moose::Meta::Method::Accessor::Native::Array::Writer;
   2
   3 use strict;
   4 use warnings;
   5
   6 our $VERSION = '1.18';
   7 $VERSION = eval $VERSION;
   8 our $AUTHORITY = 'cpan:STEVAN';
   9
  10 use Moose::Role;
  11
  12 with 'Moose::Meta::Method::Accessor::Native::Writer',
  13     'Moose::Meta::Method::Accessor::Native::Array',
  14     'Moose::Meta::Method::Accessor::Native::Collection';
  15
  16 sub _new_members {'@_'}
  17
  18 sub _inline_copy_old_value {
  19     my ( $self, $slot_access ) = @_;
  20
  21     return '[ @{(' . $slot_access . ')} ]';
  22 }
  23
  24 1;