Linux cpanel2.daytoncreative.net 2.6.32-754.29.2.el6.x86_64 #1 SMP Tue May 12 17:39:04 UTC 2020 x86_64
Apache/2.4.43 (cPanel) OpenSSL/1.1.1g mod_bwlimited/1.4
Server IP : 70.62.220.67 & Your IP : 216.73.216.193
Domains :
Cant Read [ /etc/named.conf ]
User : michaelgreg
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
var /
log /
perl-5.20.2 /
cpan /
NEXT /
t /
Delete
Unzip
Name
Size
Permission
Date
Action
actual.t
684
B
-r--r--r--
2014-12-27 11:48
actuns.t
613
B
-r--r--r--
2014-12-27 11:48
dynamically_scoped_regex_vars.t
1.41
KB
-r--r--r--
2014-12-27 11:48
next.t
2.8
KB
-r--r--r--
2014-12-27 11:48
stringify.t
408
B
-r--r--r--
2014-12-27 11:48
unseen.t
963
B
-r--r--r--
2014-12-27 11:48
Save
Rename
use Test::More tests => 7; BEGIN { use_ok('NEXT') }; my $order = 0; package A; @ISA = qw/B C D/; sub test { ::ok(++$order==1,"test A"); $_[0]->NEXT::UNSEEN::test; 1} package B; @ISA = qw/D C/; sub test { ::ok(++$order==2,"test B"); $_[0]->NEXT::UNSEEN::test; 1} package C; @ISA = qw/D/; sub test { ::ok(++$order==4,"test C"); $_[0]->NEXT::UNSEEN::test; 1} package D; sub test { ::ok(++$order==3,"test D"); $_[0]->NEXT::UNSEEN::test; 1} package main; my $foo = {}; bless($foo,"A"); eval{ $foo->test } ? pass("Correctly survives after C") : fail("Shouldn't die on missing ancestor"); package Diamond::Base; my $seen; sub test { $seen++ ? ::fail("Can't visit inherited test twice") : ::pass("First diamond is okay"); shift->NEXT::UNSEEN::test; } package Diamond::Left; @ISA = qw[Diamond::Base]; package Diamond::Right; @ISA = qw[Diamond::Base]; package Diamond::Top; @ISA = qw[Diamond::Left Diamond::Right]; package main; Diamond::Top->test;