File Coverage

blib/lib/Date/Christmas.pm
Criterion Covered Total %
statement 13 13 100.0
branch 1 2 50.0
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 18 20 90.0


line stmt bran cond sub pod time code
1             package Date::Christmas;
2              
3 1     1   881 use strict;
  1         2  
  1         34  
4 1     1   1347 use integer;
  1         10  
  1         5  
5 1     1   29 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
  1         5  
  1         334  
6              
7             require Exporter;
8             require AutoLoader;
9              
10             @ISA = qw(Exporter AutoLoader);
11             @EXPORT = qw(christmasday);
12             $VERSION = '1.02';
13              
14             sub christmasday {
15 6     6 0 91 my $y = shift;
16 6         26 my $dow=(50 + $y%100 + $y/400 + ($y%100)/4 - 2*($y/100))%7;
17 6 50       22 my @xdays = @_ ? @_ : qw:Sunday Monday Tuesday Wednesday Thursday Friday Saturday:;
18 6         18 return $xdays[$dow];
19             }
20              
21             1;
22             __END__