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