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
|
package Params::Validate::Constants;
use strict;
use warnings;
our $VERSION = '1.31';
our @ISA = 'Exporter';
our @EXPORT = qw(
SCALAR
ARRAYREF
HASHREF
CODEREF
GLOB
GLOBREF
SCALARREF
HANDLE
BOOLEAN
UNDEF
OBJECT
UNKNOWN
);
sub SCALAR () {1}
sub ARRAYREF () {2}
sub HASHREF () {4}
sub CODEREF () {8}
sub GLOB () {16}
sub GLOBREF () {32}
sub SCALARREF () {64}
sub UNKNOWN () {128}
sub UNDEF () {256}
sub OBJECT () {512}
sub HANDLE () { 16 | 32 }
sub BOOLEAN () { 1 | 256 }
1;
|
