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