line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
# Parse::PlainConfig::Constants -- PPC Constants |
2
|
|
|
|
|
|
|
# |
3
|
|
|
|
|
|
|
# (c) 2012, Arthur Corliss |
4
|
|
|
|
|
|
|
# |
5
|
|
|
|
|
|
|
# $Id: lib/Parse/PlainConfig/Constants.pm, 3.04 2017/02/06 02:58:13 acorliss Exp $ |
6
|
|
|
|
|
|
|
# |
7
|
|
|
|
|
|
|
# This software is licensed under the same terms as Perl, itself. |
8
|
|
|
|
|
|
|
# Please see http://dev.perl.org/licenses/ for more information. |
9
|
|
|
|
|
|
|
# |
10
|
|
|
|
|
|
|
##################################################################### |
11
|
|
|
|
|
|
|
|
12
|
|
|
|
|
|
|
##################################################################### |
13
|
|
|
|
|
|
|
# |
14
|
|
|
|
|
|
|
# Environment definitions |
15
|
|
|
|
|
|
|
# |
16
|
|
|
|
|
|
|
##################################################################### |
17
|
|
|
|
|
|
|
|
18
|
|
|
|
|
|
|
package Parse::PlainConfig::Constants; |
19
|
|
|
|
|
|
|
|
20
|
24
|
|
|
24
|
|
14362
|
use 5.008; |
|
24
|
|
|
|
|
55
|
|
21
|
|
|
|
|
|
|
|
22
|
24
|
|
|
24
|
|
87
|
use strict; |
|
24
|
|
|
|
|
28
|
|
|
24
|
|
|
|
|
415
|
|
23
|
24
|
|
|
24
|
|
79
|
use warnings; |
|
24
|
|
|
|
|
23
|
|
|
24
|
|
|
|
|
552
|
|
24
|
24
|
|
|
24
|
|
79
|
use vars qw($VERSION @EXPORT @EXPORT_OK %EXPORT_TAGS); |
|
24
|
|
|
|
|
40
|
|
|
24
|
|
|
|
|
1266
|
|
25
|
24
|
|
|
24
|
|
90
|
use Exporter; |
|
24
|
|
|
|
|
25
|
|
|
24
|
|
|
|
|
944
|
|
26
|
24
|
|
|
24
|
|
9273
|
use Class::EHierarchy qw(:all); |
|
24
|
|
|
|
|
109472
|
|
|
24
|
|
|
|
|
3546
|
|
27
|
|
|
|
|
|
|
|
28
|
24
|
|
|
24
|
|
142
|
use base qw(Exporter); |
|
24
|
|
|
|
|
31
|
|
|
24
|
|
|
|
|
2463
|
|
29
|
|
|
|
|
|
|
|
30
|
|
|
|
|
|
|
($VERSION) = ( q$Revision: 3.04 $ =~ /(\d+(?:\.(\d+))+)/sm ); |
31
|
|
|
|
|
|
|
|
32
|
24
|
|
|
24
|
|
112
|
use constant PPCDLEVEL1 => 7; |
|
24
|
|
|
|
|
28
|
|
|
24
|
|
|
|
|
1285
|
|
33
|
24
|
|
|
24
|
|
94
|
use constant PPCDLEVEL2 => 8; |
|
24
|
|
|
|
|
29
|
|
|
24
|
|
|
|
|
890
|
|
34
|
24
|
|
|
24
|
|
88
|
use constant PPCDLEVEL3 => 9; |
|
24
|
|
|
|
|
26
|
|
|
24
|
|
|
|
|
859
|
|
35
|
24
|
|
|
24
|
|
84
|
use constant PPC_DEF_SIZE => 65_536; |
|
24
|
|
|
|
|
25
|
|
|
24
|
|
|
|
|
836
|
|
36
|
|
|
|
|
|
|
|
37
|
24
|
|
|
24
|
|
81
|
use constant MTIME => 9; |
|
24
|
|
|
|
|
24
|
|
|
24
|
|
|
|
|
864
|
|
38
|
|
|
|
|
|
|
|
39
|
24
|
|
|
24
|
|
84
|
use constant DEFAULT_PDLM => ':'; |
|
24
|
|
|
|
|
27
|
|
|
24
|
|
|
|
|
901
|
|
40
|
24
|
|
|
24
|
|
77
|
use constant DEFAULT_LDLM => ','; |
|
24
|
|
|
|
|
33
|
|
|
24
|
|
|
|
|
968
|
|
41
|
24
|
|
|
24
|
|
83
|
use constant DEFAULT_HDLM => '=>'; |
|
24
|
|
|
|
|
78
|
|
|
24
|
|
|
|
|
940
|
|
42
|
24
|
|
|
24
|
|
84
|
use constant DEFAULT_CMMT => '#'; |
|
24
|
|
|
|
|
23
|
|
|
24
|
|
|
|
|
792
|
|
43
|
24
|
|
|
24
|
|
75
|
use constant DEFAULT_SUBI => 8; |
|
24
|
|
|
|
|
29
|
|
|
24
|
|
|
|
|
844
|
|
44
|
24
|
|
|
24
|
|
80
|
use constant DEFAULT_TAB => 8; |
|
24
|
|
|
|
|
34
|
|
|
24
|
|
|
|
|
877
|
|
45
|
24
|
|
|
24
|
|
82
|
use constant DEFAULT_TW => 78; |
|
24
|
|
|
|
|
23
|
|
|
24
|
|
|
|
|
867
|
|
46
|
24
|
|
|
24
|
|
456
|
use constant DEFAULT_HDOC => 'EOF'; |
|
24
|
|
|
|
|
387
|
|
|
24
|
|
|
|
|
1750
|
|
47
|
|
|
|
|
|
|
|
48
|
24
|
|
|
24
|
|
464
|
use constant PPC_SCALAR => CEH_SCALAR; |
|
24
|
|
|
|
|
25
|
|
|
24
|
|
|
|
|
1628
|
|
49
|
24
|
|
|
24
|
|
81
|
use constant PPC_ARRAY => CEH_ARRAY; |
|
24
|
|
|
|
|
409
|
|
|
24
|
|
|
|
|
919
|
|
50
|
24
|
|
|
24
|
|
86
|
use constant PPC_HASH => CEH_HASH; |
|
24
|
|
|
|
|
28
|
|
|
24
|
|
|
|
|
827
|
|
51
|
24
|
|
|
24
|
|
111
|
use constant PPC_HDOC => 512; |
|
24
|
|
|
|
|
32
|
|
|
24
|
|
|
|
|
1954
|
|
52
|
|
|
|
|
|
|
|
53
|
|
|
|
|
|
|
@EXPORT = qw(PPC_SCALAR PPC_ARRAY PPC_HASH PPC_HDOC); |
54
|
|
|
|
|
|
|
@EXPORT_OK = ( |
55
|
|
|
|
|
|
|
@EXPORT, qw(PPCDLEVEL1 PPCDLEVEL2 PPCDLEVEL3 PPC_DEF_SIZE |
56
|
|
|
|
|
|
|
MTIME DEFAULT_TW DEFAULT_PDLM DEFAULT_LDLM DEFAULT_HDLM |
57
|
|
|
|
|
|
|
DEFAULT_CMMT DEFAULT_SUBI DEFAULT_TAB DEFAULT_HDOC) |
58
|
|
|
|
|
|
|
); |
59
|
|
|
|
|
|
|
%EXPORT_TAGS = ( |
60
|
|
|
|
|
|
|
all => [@EXPORT_OK], |
61
|
|
|
|
|
|
|
std => [@EXPORT], |
62
|
|
|
|
|
|
|
debug => [qw(PPCDLEVEL1 PPCDLEVEL2 PPCDLEVEL3)], |
63
|
|
|
|
|
|
|
); |
64
|
|
|
|
|
|
|
|
65
|
|
|
|
|
|
|
##################################################################### |
66
|
|
|
|
|
|
|
# |
67
|
|
|
|
|
|
|
# Module code follows |
68
|
|
|
|
|
|
|
# |
69
|
|
|
|
|
|
|
##################################################################### |
70
|
|
|
|
|
|
|
|
71
|
|
|
|
|
|
|
1; |
72
|
|
|
|
|
|
|
|
73
|
|
|
|
|
|
|
__END__ |