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 # This package is really more of a role, so it doesn't inherit from anything.
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+\$/;};