Linux server.nvwebsoft.co.in 3.10.0-1160.114.2.el7.x86_64 #1 SMP Wed Mar 20 15:54:52 UTC 2024 x86_64
Apache
: 162.240.12.249 | : 3.137.219.221
202 Domain
8.1.31
nbspublicschool
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
README
+ Create Folder
+ Create File
/
usr /
local /
share /
perl5 /
Test /
Deep /
[ HOME SHELL ]
Name
Size
Permission
Action
Cache
[ DIR ]
drwxr-xr-x
All.pm
702
B
-r--r--r--
Any.pm
908
B
-r--r--r--
Array.pm
477
B
-r--r--r--
ArrayEach.pm
517
B
-r--r--r--
ArrayElementsOnly.pm
677
B
-r--r--r--
ArrayLength.pm
374
B
-r--r--r--
ArrayLengthOnly.pm
654
B
-r--r--r--
Blessed.pm
564
B
-r--r--r--
Boolean.pm
558
B
-r--r--r--
Cache.pm
1.01
KB
-r--r--r--
Class.pm
363
B
-r--r--r--
Cmp.pm
1.13
KB
-r--r--r--
Code.pm
705
B
-r--r--r--
Hash.pm
1.38
KB
-r--r--r--
HashEach.pm
326
B
-r--r--r--
HashElements.pm
1.24
KB
-r--r--r--
HashKeys.pm
999
B
-r--r--r--
HashKeysOnly.pm
1.5
KB
-r--r--r--
Ignore.pm
186
B
-r--r--r--
Isa.pm
538
B
-r--r--r--
ListMethods.pm
288
B
-r--r--r--
MM.pm
922
B
-r--r--r--
Methods.pm
1.28
KB
-r--r--r--
NoTest.pm
788
B
-r--r--r--
None.pm
869
B
-r--r--r--
Number.pm
1.06
KB
-r--r--r--
Obj.pm
522
B
-r--r--r--
Ref.pm
490
B
-r--r--r--
RefType.pm
547
B
-r--r--r--
Regexp.pm
1.38
KB
-r--r--r--
RegexpMatches.pm
662
B
-r--r--r--
RegexpOnly.pm
521
B
-r--r--r--
RegexpRef.pm
639
B
-r--r--r--
RegexpRefOnly.pm
423
B
-r--r--r--
RegexpVersion.pm
280
B
-r--r--r--
ScalarRef.pm
432
B
-r--r--r--
ScalarRefOnly.pm
384
B
-r--r--r--
Set.pm
3.61
KB
-r--r--r--
Shallow.pm
597
B
-r--r--r--
Stack.pm
1.05
KB
-r--r--r--
String.pm
369
B
-r--r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : Regexp.pm
use strict; use warnings; package Test::Deep::Regexp; use Test::Deep::Cmp; use Test::Deep::RegexpMatches; sub init { my $self = shift; my $val = shift; $val = ref $val ? $val : qr/$val/; $self->{val} = $val; if (my $matches = shift) { $self->{matches} = Test::Deep::regexpmatches($matches, $val); $self->{flags} = shift || ""; } } sub descend { my $self = shift; my $got = shift; my $re = $self->{val}; if (my $match_exp = $self->{matches}) { my $flags = $self->{flags}; my @match_got; if ($flags eq "g") { @match_got = $got =~ /$re/g; } else { @match_got = $got =~ /$re/; } if (@match_got) { return Test::Deep::descend(\@match_got, $match_exp); } else { return 0; } } else { return ($got =~ $re) ? 1 : 0; } } sub diag_message { my $self = shift; my $where = shift; return "Using Regexp on $where"; } sub render_stack1 { my $self = shift; my $stack = shift; return "($stack =~ $self->{regex})"; } sub renderExp { my $self = shift; return "$self->{val}"; } sub renderGot { my $self = shift; my $got = shift; if (defined (my $class = Scalar::Util::blessed($got))) { my $ostr = qq{$got}; if ($ostr ne overload::StrVal($got)) { return qq{'$ostr' (instance of $class)}; } } return Test::Deep::render_val($got); } 1;
Close
