File Coverage

blib/lib/Config/PlConfig/Constants.pm
Criterion Covered Total %
statement 17 17 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 0 1 0.0
total 23 24 95.8


line stmt bran cond sub pod time code
1             # $Id$
2             # $Source$
3             # $Author$
4             # $HeadURL$
5             # $Revision$
6             # $Date$
7             package Config::PlConfig::Constants;
8 2     2   12 use warnings;
  2         5  
  2         66  
9 2     2   14 use strict;
  2         4  
  2         70  
10 2     2   46 use 5.006001;
  2         9  
  2         111  
11 2     2   12 use Carp;
  2         4  
  2         185  
12 2     2   11 use version; our $VERSION = qv('0.1_02');
  2         4  
  2         13  
13             {
14             my %CONSTANTS = (
15             DEFAULT_HOST => 'local',
16             CONF_DIRNAME => 'plconf',
17             DOMAINFILE_SUFFIX => 'plconf',
18             );
19              
20             sub get {
21 30     30 0 53 my ($class, $key) = @_;
22              
23 30         93 return $CONSTANTS{$key}
24             }
25             }
26              
27             # Module implementation here
28              
29              
30             1; # Magic true value required at end of module
31             __END__