Linux moon.hostseba.com 4.18.0-553.51.1.lve.el8.x86_64 #1 SMP Tue May 6 15:14:12 UTC 2025 x86_64
LiteSpeed
Server IP : 103.174.152.68 & Your IP : 216.73.216.150
Domains :
Cant Read [ /etc/named.conf ]
User : julaysp1
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
local /
lib64 /
perl5 /
Params /
Validate /
Delete
Unzip
Name
Size
Permission
Date
Action
Constants.pm
552
B
-r--r--r--
2024-12-13 00:02
PP.pm
19.84
KB
-r--r--r--
2024-12-13 00:02
XS.pm
942
B
-r--r--r--
2024-12-13 00:02
Save
Rename
package Params::Validate::XS; use strict; use warnings; our $VERSION = '1.31'; use Carp; my $default_fail = sub { 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;