File Coverage

blib/lib/HH/Unispool/Config/File/Token/Comment/Date.pm
Criterion Covered Total %
statement 63 73 86.3
branch 18 40 45.0
condition 18 44 40.9
subroutine 14 14 100.0
pod 4 4 100.0
total 117 175 66.8


line stmt bran cond sub pod time code
1             package HH::Unispool::Config::File::Token::Comment::Date;
2              
3 6     6   6384 use 5.006;
  6         21  
  6         249  
4 6     6   32 use base qw( HH::Unispool::Config::File::Token::Comment );
  6         11  
  6         1264  
5 6     6   39 use strict;
  6         12  
  6         195  
6 6     6   44 use warnings;
  6         11  
  6         192  
7 6     6   31 use AutoLoader qw(AUTOLOAD);
  6         9  
  6         41  
8 6     6   206 use Error qw(:try);
  6         12  
  6         45  
9 6     6   990 use HH::Unispool::Config::File::Token qw( :rx :frm );
  6         12  
  6         4333  
10 6     6   6392 use Time::Local qw( timelocal );
  6         10372  
  6         1975  
11              
12             # Used by _value_is_allowed
13             our %ALLOW_ISA = (
14             );
15              
16             # Used by _value_is_allowed
17             our %ALLOW_REF = (
18             );
19              
20             # Used by _value_is_allowed
21             our %ALLOW_RX = (
22             'time' => [ '^\d+$' ],
23             );
24              
25             # Used by _value_is_allowed
26             our %ALLOW_VALUE = (
27             );
28              
29             # Used by _initialize
30             our %DEFAULT_VALUE = (
31             # See _initialize for 'time' default value
32             );
33              
34             # Unispool <=> unix conversion
35             our %UNIX2USP_MONTH = ();
36              
37             # Unispool <=> unix conversion
38             our %USP2UNIX_MONTH = (
39             jan => 0,
40             feb => 1,
41             mar => 2,
42             apr => 3,
43             may => 4,
44             jun => 5,
45             jul => 6,
46             aug => 7,
47             sep => 8,
48             oct => 9,
49             nov => 10,
50             dec => 11,
51             );
52              
53             # Package version
54             our ($VERSION) = '$Revision: 0.3 $' =~ /\$Revision:\s+([^\s]+)/;
55              
56             # Unispool <=> unix conversion
57             our @UNIX2USP_WDAY = qw( SUN MON TUE WED THU FRI SAT );
58              
59             # Fill UNIX2USP_MONTH
60             foreach my $mon ( keys(%USP2UNIX_MONTH) ) {
61             $UNIX2USP_MONTH{ $USP2UNIX_MONTH{$mon} } = uc($mon);
62             }
63              
64             1;
65              
66             __END__