File Coverage

blib/lib/Date/Holidays/NO.pm

Criterion	Covered	Total	%
statement	21	22	95.4
branch	3	6	50.0
condition			n/a
subroutine	5	5	100.0
pod	2	2	100.0
total	31	35	88.5

package Date::Holidays::NO;

use vars qw($VERSION);

$VERSION=0.2;

use base qw(Date::Holidays::Abstract);
use No::Dato qw(helligdag helligdager);

sub holidays {
	my $year=shift;
	my @days=helligdager($year);
	my %days;
	foreach my $day (@days) {
		my ($month,$day, $text)=$day=~m/\d{4}-(\d{2})-(\d{2})\s*(.*)$/;
		$days{"$month$day"}=$text
	}
	return \%days;
};

sub is_holiday {
	my ($year,$month,$day)=@_;
	$month=($month<10 ?"0".$month : $month);
	$day=($day<10 ?"0".$day :$day);
	my $holiday=helligdag("$year-$month-$day");
	return $holiday if $holiday;
	return undef;
};

1;

__END__