<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">package Moose::Meta::Method::Accessor::Native::Array;
our $VERSION = '2.2011';

use strict;
use warnings;

use Moose::Role;

sub _inline_check_var_is_valid_index {
    my $self = shift;
    my ($var) = @_;

    return (
        'if (!defined(' . $var . ') || ' . $var . ' !~ /^-?\d+$/) {',
            $self-&gt;_inline_throw_exception( InvalidArgumentToMethod =&gt;
                                            'argument                =&gt; '.$var.','.
                                            'method_name             =&gt; "'.$self-&gt;delegate_to_method.'",'.
                                            'type_of_argument        =&gt; "integer",'.
                                            'type                    =&gt; "Int",'.
                                            'argument_noun           =&gt; "index"',
            ) . ';',
        '}',
    );
}

no Moose::Role;

1;
</pre></body></html>