File Coverage

blib/lib/Params/Validate/Constants.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 8 8 100.0


line stmt bran cond sub pod time code
1             package Params::Validate::Constants;
2              
3 34     34   237 use strict;
  34         79  
  34         962  
4 34     34   179 use warnings;
  34         80  
  34         7422  
5              
6             our $VERSION = '1.29';
7              
8             our @ISA = 'Exporter';
9              
10             our @EXPORT = qw(
11             SCALAR
12             ARRAYREF
13             HASHREF
14             CODEREF
15             GLOB
16             GLOBREF
17             SCALARREF
18             HANDLE
19             BOOLEAN
20             UNDEF
21             OBJECT
22             UNKNOWN
23             );
24              
25             sub SCALAR () { 1 }
26             sub ARRAYREF () { 2 }
27             sub HASHREF () { 4 }
28             sub CODEREF () { 8 }
29             sub GLOB () { 16 }
30             sub GLOBREF () { 32 }
31             sub SCALARREF () { 64 }
32             sub UNKNOWN () { 128 }
33             sub UNDEF () { 256 }
34             sub OBJECT () { 512 }
35              
36             sub HANDLE () { 16 | 32 }
37             sub BOOLEAN () { 1 | 256 }
38              
39             1;