1 package Moose::Meta::Method::Accessor::Native::Array;
8 use Scalar::Util qw( looks_like_number );
10 our $VERSION = '1.20';
11 $VERSION = eval $VERSION;
12 our $AUTHORITY = 'cpan:STEVAN';
14 sub _inline_check_var_is_valid_index {
15 my ( $self, $var ) = @_;
17 return $self->_inline_throw_error( q{'The index passed to }
18 . $self->delegate_to_method
19 . q{ must be an integer'} )
20 . qq{ unless defined $var && $var =~ /^-?\\d+\$/;};