Commit | Line | Data |
---|---|---|
518760d9 | 1 | package ok; |
7358a033 | 2 | our $VERSION = '1.302111'; |
518760d9 | 3 | |
afad11a2 RS |
4 | use strict; |
5 | use Test::More (); | |
518760d9 CG |
6 | |
7 | sub import { | |
8 | shift; | |
9 | ||
10 | if (@_) { | |
518760d9 CG |
11 | goto &Test::More::pass if $_[0] eq 'ok'; |
12 | goto &Test::More::use_ok; | |
13 | } | |
afad11a2 RS |
14 | |
15 | # No argument list - croak as if we are prototyped like use_ok() | |
16 | my (undef, $file, $line) = caller(); | |
17 | ($file =~ /^\(eval/) or die "Not enough arguments for 'use ok' at $file line $line\n"; | |
518760d9 CG |
18 | } |
19 | ||
518760d9 CG |
20 | |
21 | __END__ | |
22 | ||
b4514920 CG |
23 | =encoding UTF-8 |
24 | ||
518760d9 CG |
25 | =head1 NAME |
26 | ||
27 | ok - Alternative to Test::More::use_ok | |
28 | ||
29 | =head1 SYNOPSIS | |
30 | ||
31 | use ok 'Some::Module'; | |
32 | ||
33 | =head1 DESCRIPTION | |
34 | ||
35 | With this module, simply change all C<use_ok> in test scripts to C<use ok>, | |
36 | and they will be executed at C<BEGIN> time. | |
37 | ||
38 | Please see L<Test::use::ok> for the full description. | |
39 | ||
afad11a2 | 40 | =head1 CC0 1.0 Universal |
518760d9 CG |
41 | |
42 | To the extent possible under law, 唐鳳 has waived all copyright and related | |
43 | or neighboring rights to L<Test-use-ok>. | |
44 | ||
45 | This work is published from Taiwan. | |
46 | ||
47 | L<http://creativecommons.org/publicdomain/zero/1.0> | |
48 | ||
afad11a2 | 49 | =cut |