File Coverage

blib/lib/DateTimeX/Lite/ZeroBase.pm
Criterion Covered Total %
statement 9 11 81.8
branch n/a
condition n/a
subroutine 7 9 77.7
pod 0 8 0.0
total 16 28 57.1


line stmt bran cond sub pod time code
1             package DateTimeX::Lite;
2 1     1   6 use strict;
  1         2  
  1         295  
3              
4 1     1 0 8 sub month_0 { $_[0]->{local_c}{month} - 1 }
5 0     0 0 0 sub mon_0 { goto &month_0 };
6 0     0 0 0 sub quarter_0 { $_[0]->{local_c}{quarter} - 1 }
7              
8 4     4 0 25 sub day_of_month_0 { $_[0]->{local_c}{day} - 1 }
9             *day_0 = \&day_of_month_0;
10             *mday_0 = \&day_of_month_0;
11              
12 3     3 0 32 sub day_of_week_0 { $_[0]->{local_c}{day_of_week} - 1 }
13             *wday_0 = \&day_of_week_0;
14             *dow_0 = \&day_of_week_0;
15              
16 2     2 0 10 sub day_of_quarter_0 { $_[0]->day_of_quarter - 1 }
17             *doq_0 = \&day_of_quarter_0;
18              
19 3     3 0 56 sub day_of_year_0 { $_[0]->{local_c}{day_of_year} - 1 }
20             *doy_0 = \&day_of_year_0;
21              
22 3     3 0 18 sub hour_12_0 { $_[0]->hour % 12 }
23              
24             1;