line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Config::IOD::Constants; |
2
|
|
|
|
|
|
|
|
3
|
|
|
|
|
|
|
our $DATE = '2021-06-23'; # DATE |
4
|
|
|
|
|
|
|
our $VERSION = '0.352'; # VERSION |
5
|
|
|
|
|
|
|
|
6
|
|
|
|
|
|
|
BEGIN { |
7
|
15
|
|
|
15
|
|
807
|
our %constants = ( |
8
|
|
|
|
|
|
|
COL_TYPE => 0, |
9
|
|
|
|
|
|
|
|
10
|
|
|
|
|
|
|
COL_B_RAW => 1, |
11
|
|
|
|
|
|
|
|
12
|
|
|
|
|
|
|
COL_D_COMMENT_CHAR => 1, |
13
|
|
|
|
|
|
|
COL_D_WS1 => 2, |
14
|
|
|
|
|
|
|
COL_D_WS2 => 3, |
15
|
|
|
|
|
|
|
COL_D_DIRECTIVE => 4, |
16
|
|
|
|
|
|
|
COL_D_WS3 => 5, |
17
|
|
|
|
|
|
|
COL_D_ARGS_RAW => 6, |
18
|
|
|
|
|
|
|
COL_D_NL => 7, |
19
|
|
|
|
|
|
|
|
20
|
|
|
|
|
|
|
COL_C_WS1 => 1, |
21
|
|
|
|
|
|
|
COL_C_COMMENT_CHAR => 2, |
22
|
|
|
|
|
|
|
COL_C_COMMENT => 3, |
23
|
|
|
|
|
|
|
COL_C_NL => 4, |
24
|
|
|
|
|
|
|
|
25
|
|
|
|
|
|
|
COL_S_WS1 => 1, |
26
|
|
|
|
|
|
|
COL_S_WS2 => 2, |
27
|
|
|
|
|
|
|
COL_S_SECTION => 3, |
28
|
|
|
|
|
|
|
COL_S_WS3 => 4, |
29
|
|
|
|
|
|
|
COL_S_WS4 => 5, |
30
|
|
|
|
|
|
|
COL_S_COMMENT_CHAR => 6, |
31
|
|
|
|
|
|
|
COL_S_COMMENT => 7, |
32
|
|
|
|
|
|
|
COL_S_NL => 8, |
33
|
|
|
|
|
|
|
|
34
|
|
|
|
|
|
|
COL_K_WS1 => 1, |
35
|
|
|
|
|
|
|
COL_K_KEY => 2, |
36
|
|
|
|
|
|
|
COL_K_WS2 => 3, |
37
|
|
|
|
|
|
|
COL_K_WS3 => 4, |
38
|
|
|
|
|
|
|
COL_K_VALUE_RAW => 5, |
39
|
|
|
|
|
|
|
COL_K_NL => 6, |
40
|
|
|
|
|
|
|
); |
41
|
|
|
|
|
|
|
} |
42
|
|
|
|
|
|
|
|
43
|
15
|
|
|
15
|
|
92
|
use constant \%constants; |
|
15
|
|
|
|
|
26
|
|
|
15
|
|
|
|
|
4027
|
|
44
|
|
|
|
|
|
|
|
45
|
15
|
|
|
15
|
|
106
|
use Exporter qw(import); |
|
15
|
|
|
|
|
27
|
|
|
15
|
|
|
|
|
1458
|
|
46
|
|
|
|
|
|
|
our @EXPORT_OK = sort keys %constants; |
47
|
|
|
|
|
|
|
our %EXPORT_TAGS = (ALL => \@EXPORT_OK); |
48
|
|
|
|
|
|
|
|
49
|
|
|
|
|
|
|
1; |
50
|
|
|
|
|
|
|
# ABSTRACT: Constants used when parsing IOD document |
51
|
|
|
|
|
|
|
|
52
|
|
|
|
|
|
|
__END__ |