| Server IP : 85.214.239.14 / Your IP : 3.139.87.251 Web Server : Apache/2.4.61 (Debian) System : Linux h2886529.stratoserver.net 4.9.0 #1 SMP Tue Jan 9 19:45:01 MSK 2024 x86_64 User : www-data ( 33) PHP Version : 7.4.18 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals,pcntl_unshare, MySQL : OFF | cURL : OFF | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : OFF Directory : /lib/x86_64-linux-gnu/perl5/5.36/Moose/Exception/ |
Upload File : |
package Moose::Exception::InvalidArgumentToMethod;
our $VERSION = '2.2203';
use Moose;
extends 'Moose::Exception';
has 'argument' => (
is => 'ro',
isa => 'Any',
required => 1
);
has [qw(type type_of_argument method_name)] => (
is => 'ro',
isa => 'Str',
required => 1
);
has 'ordinal' => (
is => 'ro',
isa => 'Str',
predicate => 'is_ordinal_set'
);
has 'argument_noun' => (
is => 'ro',
isa => 'Str',
default => 'argument'
);
sub _build_message {
my $self = shift;
my $article = ( $self->type_of_argument =~ /^[aeiou]/ ? 'an ' : 'a ');
my $arg_noun = $self->argument_noun;
if( $self->is_ordinal_set ) {
"The ".$self->ordinal." $arg_noun passed to ".$self->method_name." must be ".$article.$self->type_of_argument;
}
else {
"The $arg_noun passed to ".$self->method_name." must be ".$article.$self->type_of_argument;
}
}
__PACKAGE__->meta->make_immutable;
1;