1 package Moose::Meta::Method::Accessor::Native::Array::accessor;
7 $VERSION = eval $VERSION;
8 our $AUTHORITY = 'cpan:STEVAN';
12 with 'Moose::Meta::Method::Accessor::Native::Array::set' => {
17 _inline_process_arguments
18 _inline_check_arguments
22 'Moose::Meta::Method::Accessor::Native::Array::get' => {
32 sub _generate_method {
36 my $slot_access = $self->_get_value($inv);
40 'my ' . $inv . ' = shift;',
41 $self->_inline_curried_arguments,
42 $self->_inline_check_lazy($inv, '$type_constraint', '$type_constraint_obj'),
45 $self->_inline_check_var_is_valid_index('$_[0]'),
46 $self->Moose::Meta::Method::Accessor::Native::Array::get::_inline_return_value($slot_access),
50 $self->_inline_writer_core($inv, $slot_access),
56 sub _minimum_arguments { 1 }
57 sub _maximum_arguments { 2 }