File Coverage

blib/lib/Date/Day.pm

Criterion	Covered	Total	%
statement	21	26	80.7
branch	5	10	50.0
condition	5	15	33.3
subroutine	3	3	100.0
pod	0	1	0.0
total	34	55	61.8

package Date::Day;

use strict;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);

require Exporter;

@ISA = qw(Exporter AutoLoader);
@EXPORT = qw(
&day
);
$VERSION = '1.04';

sub day
{

my $m = @_[0];
my $d = @_[1];
my $y = @_[2];

if($m !~ /[\d]{1,2}/ || $m > 12  || $m < 1 ){ return "ERR"; }
if($d !~ /[\d]{1,2}/ || $d > 31  || $d < 1 ){ return "ERR"; }
if($y !~ /[\d]+/ || $y < 1 ){ return "ERR"; }

my %month=(1,0,2,3,3,2,4,5,5,0,6,3,7,5,8,1,9,4,10,6,11,2,12,4,);
my %weekday=(0,'SUN',1,'MON',2,'TUE',3,'WED',4,'THU',5,'FRI',6,'SAT',);

if($m == 1){ $y--; }
if($m == 2){ $y--; }

$m = int($m);
$d = int($d);
$y = int($y);

my $wday = (($d+$month{$m}+$y+(int($y/4))-(int($y/100))+(int($y/400)))%7);
return $weekday{$wday};

}

1;
__END__