1 package Moose::Meta::Method::Accessor::Native::Array::delete;
8 with 'Moose::Meta::Method::Accessor::Native::Array::Writer' => {
13 _inline_check_arguments
14 _inline_optimized_set_new_value
20 sub _minimum_arguments { 1 }
22 sub _maximum_arguments { 1 }
24 sub _inline_check_arguments {
27 return $self->_inline_check_var_is_valid_index('$_[0]');
30 sub _adds_members { 0 }
32 sub _potential_value {
34 my ($slot_access) = @_;
37 . 'my @potential = @{ (' . $slot_access . ') }; '
38 . '@return = splice @potential, $_[0], 1; '
43 sub _inline_optimized_set_new_value {
45 my ($inv, $new, $slot_access) = @_;
47 return '@return = splice @{ (' . $slot_access . ') }, $_[0], 1;';
52 my ($slot_access) = @_;