NAME

Date::Holidays::KR - Determine KR Public Holidays

SYNOPSIS

use Date::Holidays::KR;
my ($year, $month, $day) = (localtime)[5, 4, 3];
$year  += 1900;
$month += 1;
print "Woohoo" if is_kr_holiday($year, $month, $day);

SUBROUTINES

is_kr_holiday( $year, $month, $day )

Returns the name of the Holiday that falls on the given day, or undef if there is none.

kr_holidays( $year )

Returns hashref contains whole holidays in $year, each keys are concatenate string of 2 digit month and 2 digit day

my $holidays = kr_holidays(2016);
## 25th of December is annual Christmas
print $holidays->{'1225'};    # 기독탄신일

HOLIDAY DATA

http://www.nodong.or.kr/holyday/403063

SEE ALSO

Date::Holidays::UK, Date::Holidays::DK

COPYRIGHT

Copyright 2016 Hyungsuk Hong.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

The full text of the license can be found in the LICENSE file included with this module.