File Coverage

blib/lib/HH/Unispool/Config/DateFormat.pm
Criterion Covered Total %
statement 46 61 75.4
branch 12 30 40.0
condition 9 27 33.3
subroutine 11 11 100.0
pod 4 4 100.0
total 82 133 61.6


line stmt bran cond sub pod time code
1             package HH::Unispool::Config::DateFormat;
2              
3 8     8   192 use 5.006;
  8         28  
  8         292  
4 8     8   43 use strict;
  8         15  
  8         283  
5 8     8   40 use warnings;
  8         15  
  8         250  
6 8     8   43 use AutoLoader qw(AUTOLOAD);
  8         23  
  8         48  
7 8     8   278 use Error qw(:try);
  8         16  
  8         52  
8              
9             # Used by _value_is_allowed
10             our %ALLOW_ISA = (
11             );
12              
13             # Used by _value_is_allowed
14             our %ALLOW_REF = (
15             );
16              
17             # Used by _value_is_allowed
18             our %ALLOW_RX = (
19             );
20              
21             # Used by _value_is_allowed
22             our %ALLOW_VALUE = (
23             'date_format' => {
24             'DD/MM/YY' => 1,
25             'DD/MMM/YY' => 1,
26             'MM/DD/YY' => 1,
27             'YY/MM/DD' => 1,
28             },
29             );
30              
31             # Used by _initialize
32             our %DEFAULT_VALUE = (
33             'date_format' => 'DD/MM/YY',
34             );
35              
36             # Package version
37             our ($VERSION) = '$Revision: 0.3 $' =~ /\$Revision:\s+([^\s]+)/;
38              
39             1;
40              
41             __END__