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.05 2017/02/06 10:36:37 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
|
|
14947
|
use 5.008; |
|
24
|
|
|
|
|
50
|
|
21
|
|
|
|
|
|
|
|
22
|
24
|
|
|
24
|
|
81
|
use strict; |
|
24
|
|
|
|
|
23
|
|
|
24
|
|
|
|
|
400
|
|
23
|
24
|
|
|
24
|
|
79
|
use warnings; |
|
24
|
|
|
|
|
29
|
|
|
24
|
|
|
|
|
552
|
|
24
|
24
|
|
|
24
|
|
84
|
use vars qw($VERSION @EXPORT @EXPORT_OK %EXPORT_TAGS); |
|
24
|
|
|
|
|
33
|
|
|
24
|
|
|
|
|
1233
|
|
25
|
24
|
|
|
24
|
|
82
|
use Exporter; |
|
24
|
|
|
|
|
22
|
|
|
24
|
|
|
|
|
903
|
|
26
|
24
|
|
|
24
|
|
8639
|
use Class::EHierarchy qw(:all); |
|
24
|
|
|
|
|
102354
|
|
|
24
|
|
|
|
|
3133
|
|
27
|
|
|
|
|
|
|
|
28
|
24
|
|
|
24
|
|
125
|
use base qw(Exporter); |
|
24
|
|
|
|
|
29
|
|
|
24
|
|
|
|
|
2023
|
|
29
|
|
|
|
|
|
|
|
30
|
|
|
|
|
|
|
($VERSION) = ( q$Revision: 3.05 $ =~ /(\d+(?:\.(\d+))+)/sm ); |
31
|
|
|
|
|
|
|
|
32
|
24
|
|
|
24
|
|
96
|
use constant PPCDLEVEL1 => 7; |
|
24
|
|
|
|
|
26
|
|
|
24
|
|
|
|
|
1083
|
|
33
|
24
|
|
|
24
|
|
82
|
use constant PPCDLEVEL2 => 8; |
|
24
|
|
|
|
|
27
|
|
|
24
|
|
|
|
|
885
|
|
34
|
24
|
|
|
24
|
|
83
|
use constant PPCDLEVEL3 => 9; |
|
24
|
|
|
|
|
25
|
|
|
24
|
|
|
|
|
796
|
|
35
|
24
|
|
|
24
|
|
74
|
use constant PPC_DEF_SIZE => 65_536; |
|
24
|
|
|
|
|
26
|
|
|
24
|
|
|
|
|
761
|
|
36
|
|
|
|
|
|
|
|
37
|
24
|
|
|
24
|
|
75
|
use constant MTIME => 9; |
|
24
|
|
|
|
|
22
|
|
|
24
|
|
|
|
|
851
|
|
38
|
|
|
|
|
|
|
|
39
|
24
|
|
|
24
|
|
79
|
use constant DEFAULT_PDLM => ':'; |
|
24
|
|
|
|
|
24
|
|
|
24
|
|
|
|
|
791
|
|
40
|
24
|
|
|
24
|
|
71
|
use constant DEFAULT_LDLM => ','; |
|
24
|
|
|
|
|
27
|
|
|
24
|
|
|
|
|
794
|
|
41
|
24
|
|
|
24
|
|
74
|
use constant DEFAULT_HDLM => '=>'; |
|
24
|
|
|
|
|
19
|
|
|
24
|
|
|
|
|
800
|
|
42
|
24
|
|
|
24
|
|
74
|
use constant DEFAULT_CMMT => '#'; |
|
24
|
|
|
|
|
26
|
|
|
24
|
|
|
|
|
729
|
|
43
|
24
|
|
|
24
|
|
74
|
use constant DEFAULT_SUBI => 8; |
|
24
|
|
|
|
|
25
|
|
|
24
|
|
|
|
|
820
|
|
44
|
24
|
|
|
24
|
|
73
|
use constant DEFAULT_TAB => 8; |
|
24
|
|
|
|
|
27
|
|
|
24
|
|
|
|
|
883
|
|
45
|
24
|
|
|
24
|
|
82
|
use constant DEFAULT_TW => 78; |
|
24
|
|
|
|
|
23
|
|
|
24
|
|
|
|
|
856
|
|
46
|
24
|
|
|
24
|
|
407
|
use constant DEFAULT_HDOC => 'EOF'; |
|
24
|
|
|
|
|
356
|
|
|
24
|
|
|
|
|
1648
|
|
47
|
|
|
|
|
|
|
|
48
|
24
|
|
|
24
|
|
75
|
use constant PPC_SCALAR => CEH_SCALAR; |
|
24
|
|
|
|
|
364
|
|
|
24
|
|
|
|
|
1761
|
|
49
|
24
|
|
|
24
|
|
74
|
use constant PPC_ARRAY => CEH_ARRAY; |
|
24
|
|
|
|
|
26
|
|
|
24
|
|
|
|
|
1121
|
|
50
|
24
|
|
|
24
|
|
75
|
use constant PPC_HASH => CEH_HASH; |
|
24
|
|
|
|
|
34
|
|
|
24
|
|
|
|
|
736
|
|
51
|
24
|
|
|
24
|
|
92
|
use constant PPC_HDOC => 512; |
|
24
|
|
|
|
|
31
|
|
|
24
|
|
|
|
|
1936
|
|
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__ |