1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
#!/usr/bin/perl
use strict;
BEGIN
{
$| = 1;
$^W = 1;
$ENV{PERL_PARAMS_UTIL_PP} ||= 1;
}
use Test::More tests => 26;
use File::Spec::Functions ':ALL';
BEGIN
{
use_ok('Params::Util', ':ALL');
}
#####################################################################
# Is everything imported
ok(defined &_STRING, '_STRING imported ok');
ok(defined &_IDENTIFIER, '_IDENTIFIER imported ok');
ok(defined &_CLASS, '_CLASS imported ok');
ok(defined &_CLASSISA, '_CLASSISA imported ok');
ok(defined &_SUBCLASS, '_SUBCLASS imported ok');
ok(defined &_DRIVER, '_DRIVER imported ok');
ok(defined &_NUMBER, '_NUMBER imported ok');
ok(defined &_POSINT, '_POSINT imported ok');
ok(defined &_NONNEGINT, '_NONNEGINT imported ok');
ok(defined &_SCALAR, '_SCALAR imported ok');
ok(defined &_SCALAR0, '_SCALAR0 imported ok');
ok(defined &_ARRAY, '_ARRAY imported ok');
ok(defined &_ARRAY0, '_ARRAY0 imported ok');
ok(defined &_ARRAYLIKE, '_ARRAYLIKE imported ok');
ok(defined &_HASH, '_HASH imported ok');
ok(defined &_HASH0, '_HASH0 imported ok');
ok(defined &_HASHLIKE, '_HASHLIKE imported ok');
ok(defined &_CODE, '_CODE imported ok');
ok(defined &_CODELIKE, '_CODELIKE imported ok');
ok(defined &_INVOCANT, '_INVOCANT imported ok');
ok(defined &_INSTANCE, '_INSTANCE imported ok');
ok(defined &_REGEX, '_REGEX imported ok');
ok(defined &_SET, '_SET imported ok');
ok(defined &_SET0, '_SET0 imported ok');
ok(defined &_HANDLE, '_HANDLE imported ok');
|
