Linux sea-business-23.hostwindsdns.com 4.18.0-553.121.1.lve.el8.x86_64 #1 SMP Thu Apr 30 16:40:41 UTC 2026 x86_64
LiteSpeed
Server IP : 104.168.155.189 & Your IP : 216.73.217.84
Domains :
Cant Read [ /etc/named.conf ]
User : zvmcccat
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
local /
share /
perl5 /
Delete
Unzip
Name
Size
Permission
Date
Action
Alien
[ DIR ]
drwxr-xr-x
2024-03-27 13:06
AppConfig
[ DIR ]
drwxr-xr-x
2017-07-12 20:58
CPAN
[ DIR ]
drwxr-xr-x
2019-06-05 11:33
Canary
[ DIR ]
drwxr-xr-x
2019-06-05 11:33
Capture
[ DIR ]
drwxr-xr-x
2019-04-25 10:53
ExtUtils
[ DIR ]
drwxr-xr-x
2024-02-24 10:06
FFI
[ DIR ]
drwxr-xr-x
2019-04-25 10:53
File
[ DIR ]
drwxr-xr-x
2019-04-25 10:53
HTTP
[ DIR ]
drwxr-xr-x
2024-03-01 12:34
IO
[ DIR ]
drwxr-xr-x
2020-01-31 11:50
JSON
[ DIR ]
drwxr-xr-x
2026-03-28 10:25
Module
[ DIR ]
drwxr-xr-x
2024-02-24 10:06
Number
[ DIR ]
drwxr-xr-x
2017-11-20 03:19
POD2
[ DIR ]
drwxr-xr-x
2019-06-05 11:33
Parse
[ DIR ]
drwxr-xr-x
2019-06-05 11:33
Path
[ DIR ]
drwxr-xr-x
2019-04-25 10:53
String
[ DIR ]
drwxr-xr-x
2026-07-11 10:21
Test
[ DIR ]
drwxr-xr-x
2024-03-27 13:06
Test2
[ DIR ]
drwxr-xr-x
2019-04-25 10:53
Try
[ DIR ]
drwxr-xr-x
2024-03-01 12:34
XML
[ DIR ]
drwxr-xr-x
2018-04-11 11:03
lib
[ DIR ]
drwxr-xr-x
2019-06-05 11:33
local
[ DIR ]
drwxr-xr-x
2024-03-01 12:34
x86_64-linux-thread-multi
[ DIR ]
drwxr-xr-x
2017-07-12 20:58
AppConfig.pm
31.7
KB
-r--r--r--
2015-03-01 22:23
Expect.pm
98.81
KB
-r-xr-xr-x
2024-02-23 21:39
JSON.pm
61.05
KB
-r--r--r--
2026-03-22 02:58
Test2.pm
6.24
KB
-r--r--r--
2019-02-06 03:55
alienfile.pm
16.48
KB
-r--r--r--
2023-05-11 22:31
cPanelUserConfig.pm
561
B
-rw-r--r--
2025-10-02 19:40
ok.pm
967
B
-r--r--r--
2019-02-06 03:55
Save
Rename
package ok; our $VERSION = '1.302162'; use strict; use Test::More (); sub import { shift; if (@_) { goto &Test::More::pass if $_[0] eq 'ok'; goto &Test::More::use_ok; } # No argument list - croak as if we are prototyped like use_ok() my (undef, $file, $line) = caller(); ($file =~ /^\(eval/) or die "Not enough arguments for 'use ok' at $file line $line\n"; } __END__ =encoding UTF-8 =head1 NAME ok - Alternative to Test::More::use_ok =head1 SYNOPSIS use ok 'Some::Module'; =head1 DESCRIPTION With this module, simply change all C<use_ok> in test scripts to C<use ok>, and they will be executed at C<BEGIN> time. Please see L<Test::use::ok> for the full description. =head1 CC0 1.0 Universal To the extent possible under law, 唐鳳 has waived all copyright and related or neighboring rights to L<Test-use-ok>. This work is published from Taiwan. L<http://creativecommons.org/publicdomain/zero/1.0> =cut