blob: 6204282ce78a3dfbb481dc6cf1a73a8e8d760a2c (
plain)
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.20';
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;
|
