Linux server.edchosting.com 4.18.0-553.79.1.lve.el7h.x86_64 #1 SMP Wed Oct 15 16:34:46 UTC 2025 x86_64
LiteSpeed
Server IP : 75.98.162.185 & Your IP : 216.73.216.163
Domains :
Cant Read [ /etc/named.conf ]
User : goons4good
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
lib64 /
perl5 /
vendor_perl /
Params /
Validate /
Delete
Unzip
Name
Size
Permission
Date
Action
Constants.pm
602
B
-rw-r--r--
2014-06-09 20:26
PP.pm
19.01
KB
-rw-r--r--
2014-06-09 20:26
XS.pm
972
B
-rw-r--r--
2014-06-09 20:26
Save
Rename
package Params::Validate::XS; { $Params::Validate::XS::VERSION = '1.08'; } use strict; use warnings; my $default_fail = sub { require Carp; Carp::confess( $_[0] ); }; { my %defaults = ( ignore_case => 0, strip_leading => 0, allow_extra => 0, on_fail => $default_fail, stack_skip => 1, normalize_keys => undef, ); *set_options = \&validation_options; sub validation_options { my %opts = @_; my $caller = caller; foreach ( keys %defaults ) { $opts{$_} = $defaults{$_} unless exists $opts{$_}; } $Params::Validate::OPTIONS{$caller} = \%opts; } use XSLoader; XSLoader::load( __PACKAGE__, exists $Params::Validate::XS::{VERSION} ? ${ $Params::Validate::XS::{VERSION} } : (), ); } sub _check_regex_from_xs { return ( defined $_[0] ? $_[0] : '' ) =~ /$_[1]/ ? 1 : 0; } 1;