File Coverage

blib/lib/DateTime/Util/DayOfWeek.pm
Criterion Covered Total %
statement 16 16 100.0
branch n/a
condition n/a
subroutine 10 10 100.0
pod 0 7 0.0
total 26 33 78.7


line stmt bran cond sub pod time code
1             package DateTime::Util::DayOfWeek;
2 2     2   256473 use strict;
  2         5  
  2         86  
3 2     2   11 use warnings;
  2         3  
  2         86  
4             our $VERSION = '0.05';
5 2     2   55 use 5.008001;
  2         11  
  2         374  
6              
7             {
8             package # hide from pause
9             DateTime;
10 2     2 0 789 sub is_monday { shift->day_of_week == 1 }
11 2     2 0 1399 sub is_tuesday { shift->day_of_week == 2 }
12 3     3 0 2127 sub is_wednesday { shift->day_of_week == 3 }
13 2     2 0 1096 sub is_thursday { shift->day_of_week == 4 }
14 2     2 0 1162 sub is_friday { shift->day_of_week == 5 }
15 2     2 0 1095 sub is_saturday { shift->day_of_week == 6 }
16 2     2 0 1157 sub is_sunday { shift->day_of_week == 7 }
17             }
18              
19             1;
20             __END__