One Hat Cyber Team
Your IP :
172.16.0.254
Server IP :
58.26.163.33
Server :
Windows NT DGPENSV2LPKMN 10.0 build 14393 (Windows Server 2016) AMD64
Server Software :
Apache/2.4.46 (Win64) OpenSSL/1.1.1h PHP/7.3.25
PHP Version :
7.3.25
Buat File
|
Buat Folder
Eksekusi
Dir :
C:
/
xampp7
/
perl
/
vendor
/
lib
/
Moose
/
Exception
/
Edit File:
InvalidArgumentToMethod.pm
package Moose::Exception::InvalidArgumentToMethod; our $VERSION = '2.2013'; 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;
Simpan