Linux sagir-us1.hostever.us 5.14.0-570.51.1.el9_6.x86_64 #1 SMP PREEMPT_DYNAMIC Wed Oct 8 09:41:34 EDT 2025 x86_64
LiteSpeed
Server IP : 104.247.108.91 & Your IP : 216.73.216.105
Domains : 74 Domain
User : georgeto
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
share /
doc /
perl-Sub-Exporter /
t /
Delete
Unzip
Name
Size
Permission
Date
Action
lib
[ DIR ]
drwxr-xr-x
2025-02-25 04:07
00-compile.t
987
B
-rw-r--r--
2013-10-18 15:10
000-report-versions-tiny.t
2.56
KB
-rw-r--r--
2013-10-18 15:10
col-init.t
1.13
KB
-rw-r--r--
2022-02-11 18:11
collection.t
2.83
KB
-rw-r--r--
2022-02-11 18:11
expand-group.t
5.27
KB
-rw-r--r--
2022-02-11 18:11
faux-export.t
2.97
KB
-rw-r--r--
2022-02-11 18:11
gen-callable.t
574
B
-rw-r--r--
2022-02-11 18:11
group-generator.t
3.69
KB
-rw-r--r--
2022-02-11 18:11
inherited.t
613
B
-rw-r--r--
2022-02-11 18:11
into-level.t
3.06
KB
-rw-r--r--
2022-02-11 18:11
real-export-groupgen.t
1.86
KB
-rw-r--r--
2022-02-11 18:11
real-export-href.t
4.12
KB
-rw-r--r--
2022-02-11 18:11
real-export-setup.t
3.6
KB
-rw-r--r--
2022-02-11 18:11
util-curry.t
1.69
KB
-rw-r--r--
2022-02-11 18:11
util-currychain.t
1.68
KB
-rw-r--r--
2022-02-11 18:11
util-like.t
3.03
KB
-rw-r--r--
2022-02-11 18:11
util-merge.t
1.71
KB
-rw-r--r--
2022-02-11 18:11
util-mixin.t
2.73
KB
-rw-r--r--
2022-02-11 18:11
util-namemap.t
568
B
-rw-r--r--
2022-02-11 18:11
valid-config.t
1.27
KB
-rw-r--r--
2022-02-11 18:11
Save
Rename
use strict; use warnings; # this test was generated with Dist::Zilla::Plugin::Test::Compile 2.037 use Test::More 0.94 tests => 2; my @module_files = ( 'Sub/Exporter.pm', 'Sub/Exporter/Util.pm' ); # no fake home requested my $inc_switch = -d 'blib' ? '-Mblib' : '-Ilib'; use File::Spec; use IPC::Open3; use IO::Handle; my @warnings; for my $lib (@module_files) { # see L<perlfaq8/How can I capture STDERR from an external command?> open my $stdin, '<', File::Spec->devnull or die "can't open devnull: $!"; my $stderr = IO::Handle->new; my $pid = open3($stdin, '>&STDERR', $stderr, $^X, $inc_switch, '-e', "require q[$lib]"); binmode $stderr, ':crlf' if $^O eq 'MSWin32'; my @_warnings = <$stderr>; waitpid($pid, 0); is($?, 0, "$lib loaded ok"); if (@_warnings) { warn @_warnings; push @warnings, @_warnings; } } # no warning checks; BAIL_OUT("Compilation problems") if !Test::More->builder->is_passing;