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