File Coverage

blib/lib/Date/Handler/Constants.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             #!/usr/bin/perl
2             package Date::Handler::Constants;
3              
4              
5 8     8   54 use strict;
  8         16  
  8         360  
6 8     8   42 use vars qw(@ISA $VERSION @EXPORT $DAYS_IN_MONTH $SUPPORTED_TIME_ZONES);
  8         12  
  8         828  
7              
8 8     8   44 use Exporter;
  8         13  
  8         843  
9             @ISA = qw(Exporter);
10              
11             $VERSION = '1.0';
12              
13             @EXPORT = qw($DAYS_IN_MONTH $SUPPORTED_TIME_ZONES);
14              
15             $DAYS_IN_MONTH = {
16             0 => 31, #Jan
17             1 => 28, #Feb
18             2 => 31, #Mar
19             3 => 30, #Apr
20             4 => 31, #May
21             5 => 30, #Jun
22             6 => 31, #Jul
23             7 => 31, #Aug
24             8 => 30, #Sep
25             9 => 31, #Oct
26             10 => 30, #Nov
27             11 => 31, #Dec
28             };
29            
30             $SUPPORTED_TIME_ZONES = {};
31              
32             666; #The number of the beast.