1 package Moose::Meta::Method::Accessor::Native::Array::delete;
8 with 'Moose::Meta::Method::Accessor::Native::Array::Writer';
10 sub _minimum_arguments { 1 }
12 sub _maximum_arguments { 1 }
14 sub _inline_check_arguments {
17 return $self->_inline_check_var_is_valid_index('$_[0]');
20 sub _adds_members { 0 }
22 sub _potential_value {
24 my ($slot_access) = @_;
27 . 'my @potential = @{ (' . $slot_access . ') }; '
28 . '@return = splice @potential, $_[0], 1; '
33 sub _inline_optimized_set_new_value {
35 my ($inv, $new, $slot_access) = @_;
37 return '@return = splice @{ (' . $slot_access . ') }, $_[0], 1;';
42 my ($slot_access) = @_;