X7ROOT File Manager
Current Path:
/usr/share/perl5/vendor_perl
usr
/
share
/
perl5
/
vendor_perl
/
??
..
??
Algorithm
??
App
??
Archive
??
Authen
??
B
??
CPAN
??
CPAN.pm
(138.01 KB)
??
Carp
??
Carp.pm
(30.32 KB)
??
Config
??
Data
??
Date
??
Digest
??
Digest.pm
(10.46 KB)
??
Encode
??
Env.pm
(5.39 KB)
??
Error
??
Error.pm
(24.29 KB)
??
Expect.pm
(98.09 KB)
??
Exporter
??
Exporter.pm
(18.31 KB)
??
ExtUtils
??
Fatal.pm
(56.81 KB)
??
File
??
Filter
??
Getopt
??
Git
??
Git.pm
(46.95 KB)
??
HTML
??
HTTP
??
IO
??
IPC
??
JSON
??
LWP
??
LWP.pm
(21.17 KB)
??
Locale
??
MRO
??
Math
??
Module
??
Mozilla
??
Net
??
POD2
??
Package
??
Params
??
Parse
??
Perl
??
PerlIO
??
Pod
??
Software
??
Sub
??
TAP
??
Term
??
Test
??
Test2
??
Test2.pm
(6.24 KB)
??
Text
??
Thread
??
Time
??
Try
??
Types
??
WWW
??
autodie
??
autodie.pm
(12.58 KB)
??
bigint.pm
(22.85 KB)
??
bignum.pm
(20.64 KB)
??
bigrat.pm
(15.78 KB)
??
constant.pm
(14.38 KB)
??
experimental.pm
(6.83 KB)
??
inc
??
lib
??
libwww
??
local
??
newgetopt.pl
(2.15 KB)
??
ok.pm
(967 B)
??
parent.pm
(2.51 KB)
??
perldoc.pod
(9.16 KB)
??
perlfaq.pm
(77 B)
??
perlfaq.pod
(22.22 KB)
??
perlfaq1.pod
(14.12 KB)
??
perlfaq2.pod
(9.24 KB)
??
perlfaq3.pod
(36.66 KB)
??
perlfaq4.pod
(87.3 KB)
??
perlfaq5.pod
(54.21 KB)
??
perlfaq6.pod
(38.69 KB)
??
perlfaq7.pod
(36.93 KB)
??
perlfaq8.pod
(48.93 KB)
??
perlfaq9.pod
(14.5 KB)
??
perlglossary.pod
(134.02 KB)
Editing: ok.pm
package ok; our $VERSION = '1.302135'; 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
Upload File
Create Folder