File Coverage

blib/lib/Parse/PlainConfig/Constants.pm
Criterion Covered Total %
statement 71 71 100.0
branch n/a
condition n/a
subroutine 24 24 100.0
pod n/a
total 95 95 100.0


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__