File Coverage

blib/lib/Config/IOD/Constants.pm
Criterion Covered Total %
statement 7 7 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 10 10 100.0


line stmt bran cond sub pod time code
1             package Config::IOD::Constants;
2              
3             our $DATE = '2021-06-21'; # DATE
4             our $VERSION = '0.351'; # VERSION
5              
6             BEGIN {
7 15     15   771 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   87 use constant \%constants;
  15         31  
  15         3947  
44              
45 15     15   109 use Exporter qw(import);
  15         30  
  15         1438  
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__