File Coverage

blib/lib/Time/Piece/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

package Time::Piece::DayOfWeek;

use strict;
use warnings;

use 5.008_005;
our $VERSION = '0.02';

{
	package # hide from pause
		Time::Piece;

	sub is_sunday 		{ shift->wday == 1 }
	sub is_monday 		{ shift->wday == 2 }
	sub is_tuesday 		{ shift->wday == 3 }
	sub is_wednesday 	{ shift->wday == 4 }
	sub is_thursday 	{ shift->wday == 5 }
	sub is_friday 		{	shift->wday == 6 }
	sub is_saturday 	{ shift->wday == 7 }

}

1;
__END__