1package Moose::Meta::Method::Accessor::Native::Array::get; 2our $VERSION = '2.2201'; 3 4use strict; 5use warnings; 6 7use Class::MOP::MiniTrait; 8 9use Moose::Role; 10 11with 'Moose::Meta::Method::Accessor::Native::Reader', 12 'Moose::Meta::Method::Accessor::Native::Array'; 13 14sub _minimum_arguments { 1 } 15 16sub _maximum_arguments { 1 } 17 18sub _inline_check_arguments { 19 my $self = shift; 20 21 return $self->_inline_check_var_is_valid_index('$_[0]'); 22} 23 24sub _return_value { 25 my $self = shift; 26 my ($slot_access) = @_; 27 28 return $slot_access . '->[ $_[0] ]'; 29} 30 311; 32