package Calendar::Indonesia::Holiday;
use 5.010001;
use strict;
use warnings;
use experimental 'smartmatch';
use Log::Any '$log';
use DateTime;
use Function::Fallback::CoreOrPP qw(clone);
use Perinci::Sub::Gen::AccessTable qw(gen_read_table_func);
use Perinci::Sub::Util qw(err gen_modified_sub);
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(
list_id_holidays
enum_id_workdays
count_id_workdays
);
our $VERSION = '0.21'; # VERSION
our $DATE = '2014-07-02'; # DATE
our %SPEC;
my @fixed_holidays = (
my $newyear = {
day => 1, month => 1,
ind_name => "Tahun Baru",
eng_name => "New Year",
tags => [qw/international/],
},
my $indep = {
day => 17, month => 8,
ind_name => "Proklamasi",
eng_name => "Declaration Of Independence",
tags => [],
},
my $christmas = {
day => 25, month => 12,
ind_name => "Natal",
eng_name => "Christmas",
tags => [qw/international religious religion=christianity/],
},
my $labord = {
day => 1, month => 5,
year_start => 2014,
ind_name => "Hari Buruh",
eng_name => "Labor Day",
tags => [qw/international/],
decree_date => "2013-04-29",
decree_note => "Labor day becomes national holiday since 2014, ".
"decreed by president",
},
);
sub _add_original_date {
my ($r, $opts) = @_;
if ($opts->{original_date}) {
$r->{ind_name} .= " (diperingati $opts->{original_date})";
$r->{eng_name} .= " (commemorated on $opts->{original_date})";
}
}
sub _h_chnewyear {
my ($r, $opts) = @_;
$r->{ind_name} = "Tahun Baru Imlek".
($opts->{hyear} ? " $opts->{hyear}":"");
$r->{eng_name} = "Chinese New Year".
($opts->{hyear} ? " $opts->{hyear}":"");
_add_original_date($r, $opts);
$r->{ind_aliases} = [];
$r->{eng_aliases} = [];
$r->{is_holiday} = 1;
$r->{tags} = [qw/international calendar=lunar/];
($r);
}
sub _h_mawlid {
my ($r, $opts) = @_;
$r->{ind_name} = "Maulid Nabi Muhammad";
$r->{eng_name} = "Mawlid";
_add_original_date($r, $opts);
$r->{ind_aliases} = [qw/Maulud/];
$r->{eng_aliases} = ["Mawlid An-Nabi"];
$r->{is_holiday} = 1;
$r->{tags} = [qw/religious religion=islam calendar=lunar/];
($r);
}
sub _h_nyepi {
my ($r, $opts) = @_;
$r->{ind_name} = "Nyepi".
($opts->{hyear} ? " $opts->{hyear}":"");
$r->{eng_name} = "Nyepi".
($opts->{hyear} ? " $opts->{hyear}":"");
_add_original_date($r, $opts);
$r->{ind_aliases} = ["Tahun Baru Saka"];
$r->{eng_aliases} = ["Bali New Year", "Bali Day Of Silence"];
$r->{is_holiday} = 1;
$r->{tags} = [qw/religious religion=hinduism calendar=saka/];
($r);
}
sub _h_goodfri {
my ($r, $opts) = @_;
$r->{ind_name} = "Jum'at Agung";
$r->{eng_name} = "Good Friday";
_add_original_date($r, $opts);
$r->{ind_aliases} = ["Wafat Isa Al-Masih"];
$r->{eng_aliases} = [];
$r->{is_holiday} = 1;
$r->{tags} = [qw/religious religion=christianity/];
($r);
}
sub _h_vesakha {
my ($r, $opts) = @_;
$r->{ind_name} = "Waisyak".
($opts->{hyear} ? " $opts->{hyear}":"");
$r->{eng_name} = "Vesakha".
($opts->{hyear} ? " $opts->{hyear}":"");
_add_original_date($r, $opts);
$r->{ind_aliases} = [];
$r->{eng_aliases} = ["Vesak"];
$r->{is_holiday} = 1;
$r->{tags} = [qw/religious religion=buddhism/];
($r);
}
sub _h_ascension {
my ($r, $opts) = @_;
$r->{ind_name} = "Kenaikan Isa Al-Masih";
$r->{eng_name} = "Ascension Day";
_add_original_date($r, $opts);
$r->{ind_aliases} = [];
$r->{eng_aliases} = [];
$r->{is_holiday} = 1;
$r->{tags} = [qw/religious religion=christianity/];
($r);
}
sub _h_isramiraj {
my ($r, $opts) = @_;
$r->{ind_name} = "Isra Miraj";
$r->{eng_name} = "Isra And Miraj";
_add_original_date($r, $opts);
$r->{ind_aliases} = [];
$r->{eng_aliases} = [];
$r->{is_holiday} = 1;
$r->{tags} = [qw/religious religion=islam calendar=lunar/];
($r);
}
sub _h_eidulf {
my ($r, $opts) = @_;
$opts //= {};
my $ind_name0 = "Idul Fitri".
($opts->{hyear} ? " $opts->{hyear}H":"");
my $eng_name0 = "Eid Ul-Fitr".
($opts->{hyear} ? " $opts->{hyear}H":"");
$r->{ind_name} = $ind_name0.($opts->{day} ? ", Hari $opts->{day}":"");
$r->{eng_name} = $eng_name0.($opts->{day} ? ", Day $opts->{day}":"");
_add_original_date($r, $opts);
$r->{ind_aliases} = ["Lebaran"];
$r->{eng_aliases} = [];
$r->{is_holiday} = 1;
$r->{tags} = [qw/religious religion=islam calendar=lunar/];
($r);
}
sub _h_eidula {
my ($r, $opts) = @_;
$r->{ind_name} = "Idul Adha";
$r->{eng_name} = "Eid Al-Adha";
_add_original_date($r, $opts);
$r->{ind_aliases} = ["Idul Kurban"];
$r->{eng_aliases} = [];
$r->{is_holiday} = 1;
$r->{tags} = [qw/religious religion=islam calendar=lunar/];
($r);
}
sub _h_hijra {
my ($r, $opts) = @_;
$opts //= {};
$r->{ind_name} = "Tahun Baru Hijriyah".
($opts->{hyear} ? " $opts->{hyear}H":"");
$r->{eng_name} = "Hijra".
($opts->{hyear} ? " $opts->{hyear}H":"");
_add_original_date($r, $opts);
$r->{ind_aliases} = ["1 Muharam"];
$r->{eng_aliases} = [];
$r->{is_holiday} = 1;
$r->{tags} = [qw/calendar=lunar/];
($r);
}
sub _h_lelection {
my ($r, $opts) = @_;
$r->{ind_name} = "Pemilu Legislatif (Pileg)";
$r->{eng_name} = "Legislative Election";
$r->{is_holiday} = 1;
$r->{tags} = [qw/political/];
for (qw(decree_date decree_note)) {
$r->{$_} = $opts->{$_} if defined $opts->{$_};
}
($r);
}
sub _h_pelection {
my ($r, $opts) = @_;
$r->{ind_name} = "Pemilu Presiden (Pilpres)";
$r->{eng_name} = "Presidential Election";
$r->{is_holiday} = 1;
$r->{tags} = [qw/political/];
for (qw(decree_date decree_note)) {
$r->{$_} = $opts->{$_} if defined $opts->{$_};
}
($r);
}
sub _jointlv {
my ($r, $opts) = @_;
$opts //= {};
my $h = $opts->{holiday};
$r->{ind_name} = "Cuti Bersama".
($h ? " (".($h->{ind_name0} // $h->{ind_name}).")": "");
$r->{eng_name} = "Joint Leave".
($h ? " (".($h->{eng_name0} // $h->{eng_name}).")": "");
$r->{ind_aliases} = [];
$r->{eng_aliases} = [];
$r->{is_joint_leave} = 1;
$r->{tags} = [];
($r);
}
# can operate on a single holiday or multiple ones
sub _make_tentative {
my ($h) = @_;
my $hh = ref($h) eq 'ARRAY' ? $h : [$h];
for (@$hh) {
push @{ $_->{tags} }, 'tentative' unless $_->{tags} ~~ 'tentative';
}
return $h;
}
sub _make_jl_tentative {
my ($holidays) = @_;
for (@$holidays) {
_make_tentative($_) if $_->{is_joint_leave};
}
$holidays;
}
sub _expand_dm {
$_[0] =~ m!(\d+)[-/](\d+)! or die "Bug: bad dm syntax $_[0]";
return (day => $1+0, month => $2+0);
}
my %year_holidays;
# decreed ?
my $eidulf2002;
$year_holidays{2002} = [
_h_chnewyear ({_expand_dm("12-02")}, {hyear=>2553}),
_h_eidula ({_expand_dm("23-02")}, {hyear=>1422}),
_h_hijra ({_expand_dm("15-03")}, {hyear=>1423}),
_h_goodfri ({_expand_dm("29-03")}),
_h_nyepi ({_expand_dm("13-04")}, {hyear=>1924}),
_h_ascension ({_expand_dm("09-05")}),
_h_mawlid ({_expand_dm("25-05")}, {hyear=>1423, original_date=>'2003-05-14'}),
_h_vesakha ({_expand_dm("26-05")}, {hyear=>2546}),
_h_isramiraj ({_expand_dm("04-10")}),
($eidulf2002 =
_h_eidulf ({_expand_dm("06-12")}, {hyear=>1424, day=>1})),
_h_eidulf ({_expand_dm("07-12")}, {hyear=>1424, day=>2}),
_jointlv ({_expand_dm("05-12")}, {holiday=>$eidulf2002}),
_jointlv ({_expand_dm("09-12")}, {holiday=>$eidulf2002}),
_jointlv ({_expand_dm("10-12")}, {holiday=>$eidulf2002}),
_jointlv ({_expand_dm("26-12")}, {holiday=>$christmas}),
];
# decreed nov 25, 2002
my $eidulf2003;
$year_holidays{2003} = [
_h_chnewyear ({_expand_dm("01-02")}, {hyear=>2554}),
_h_eidula ({_expand_dm("12-02")}, {hyear=>1423}),
_h_hijra ({_expand_dm("03-03")}, {hyear=>1424, original_date=>'2003-03-04'}),
_h_nyepi ({_expand_dm("02-04")}, {hyear=>1925}),
_h_goodfri ({_expand_dm("18-04")}),
_h_mawlid ({_expand_dm("15-05")}, {original_date=>'2003-05-14'}),
_h_vesakha ({_expand_dm("16-05")}, {hyear=>2547}),
_h_ascension ({_expand_dm("30-05")}, {original_date=>'2003-05-29'}),
_h_isramiraj ({_expand_dm("22-09")}, {original_date=>'2003-09-24'}),
($eidulf2003 =
_h_eidulf ({_expand_dm("25-11")}, {hyear=>1425, day=>1})),
_h_eidulf ({_expand_dm("26-11")}, {hyear=>1425, day=>2}),
_jointlv ({_expand_dm("24-11")}, {holiday=>$eidulf2003}),
_jointlv ({_expand_dm("27-11")}, {holiday=>$eidulf2003}),
_jointlv ({_expand_dm("28-11")}, {holiday=>$eidulf2003}),
_jointlv ({_expand_dm("26-12")}, {holiday=>$christmas}),
];
my $indep2003 = clone($indep); $indep2003->{day} = 18;
_add_original_date($indep2003, {original_date=>'2003-08-17'});
# decreed jul 17, 2003
my $eidulf2004;
$year_holidays{2004} = [
_h_chnewyear ({_expand_dm("22-01")}, {hyear=>2555}),
_h_eidula ({_expand_dm("02-02")}, {hyear=>1424, original_date=>'2004-02-01'}),
_h_hijra ({_expand_dm("23-02")}, {hyear=>1425, original_date=>'2004-02-01'}),
_h_nyepi ({_expand_dm("22-03")}, {hyear=>1926}),
_h_goodfri ({_expand_dm("09-04")}),
_h_mawlid ({_expand_dm("03-05")}, {original_date=>'2004-05-02'}),
_h_ascension ({_expand_dm("20-05")}),
_h_vesakha ({_expand_dm("03-06")}, {hyear=>2548}),
_h_isramiraj ({_expand_dm("13-09")}, {original_date=>'2004-09-12'}),
($eidulf2004 =
_h_eidulf ({_expand_dm("14-11")}, {hyear=>1425, day=>1})),
_h_eidulf ({_expand_dm("15-11")}, {hyear=>1425, day=>2}),
_h_eidulf ({_expand_dm("16-11")}, {hyear=>1425, day=>3}),
_jointlv ({_expand_dm("17-11")}, {holiday=>$eidulf2004}),
_jointlv ({_expand_dm("18-11")}, {holiday=>$eidulf2004}),
_jointlv ({_expand_dm("19-11")}, {holiday=>$eidulf2004}),
];
# decreed jul ??, 2004
my $eidulf2005;
$year_holidays{2005} = [
_h_eidula ({_expand_dm("21-01")}, {hyear=>1425}),
_h_chnewyear ({_expand_dm("09-02")}, {hyear=>2556}),
_h_hijra ({_expand_dm("10-02")}, {hyear=>1426}),
_h_nyepi ({_expand_dm("11-03")}, {hyear=>1927}),
_h_goodfri ({_expand_dm("25-03")}),
_h_mawlid ({_expand_dm("22-04")}, {original_date=>'2005-21-04'}),
_h_ascension ({_expand_dm("05-05")}),
_h_vesakha ({_expand_dm("24-05")}, {hyear=>2549}),
_h_isramiraj ({_expand_dm("02-09")}, {original_date=>'2005-09-01'}),
($eidulf2005 =
_h_eidulf ({_expand_dm("03-11")}, {hyear=>1426, day=>1})),
_h_eidulf ({_expand_dm("04-11")}, {hyear=>1426, day=>2}),
_jointlv ({_expand_dm("02-11")}, {holiday=>$eidulf2005}),
_jointlv ({_expand_dm("05-11")}, {holiday=>$eidulf2005}),
_jointlv ({_expand_dm("07-11")}, {holiday=>$eidulf2005}),
_jointlv ({_expand_dm("08-11")}, {holiday=>$eidulf2005}),
];
# decreed mar 22, 2006 (?)
my $nyepi2006;
my $ascension2006;
my $eidulf2006;
$year_holidays{2006} = [
_h_eidula ({_expand_dm("10-01")}, {hyear=>1426}),
_h_hijra ({_expand_dm("31-01")}, {hyear=>1427}),
_h_chnewyear ({_expand_dm("29-01")}, {hyear=>2557}),
($nyepi2006 =
_h_nyepi ({_expand_dm("30-03")}, {hyear=>1928})),
_h_mawlid ({_expand_dm("10-04")}),
_h_goodfri ({_expand_dm("14-04")}),
_h_vesakha ({_expand_dm("13-05")}, {hyear=>2550}),
($ascension2006 =
_h_ascension ({_expand_dm("25-05")})),
_h_isramiraj ({_expand_dm("21-08")}),
($eidulf2006 =
_h_eidulf ({_expand_dm("24-10")}, {hyear=>1427, day=>1})),
_h_eidulf ({_expand_dm("25-10")}, {hyear=>1427, day=>2}),
_h_eidula ({_expand_dm("31-12")}, {hyear=>1427}),
_jointlv ({_expand_dm("31-03")}, {holiday=>$nyepi2006}),
_jointlv ({_expand_dm("26-05")}, {holiday=>$ascension2006}),
_jointlv ({_expand_dm("18-08")}, {holiday=>$indep}),
_jointlv ({_expand_dm("23-10")}, {holiday=>$eidulf2006}),
_jointlv ({_expand_dm("26-10")}, {holiday=>$eidulf2006}),
_jointlv ({_expand_dm("27-10")}, {holiday=>$eidulf2006}),
];
# decreed jul 24, 2006
my $ascension2007;
my $eidulf2007;
$year_holidays{2007} = [
_h_hijra ({_expand_dm("20-01")}, {hyear=>1428}),
_h_chnewyear ({_expand_dm("18-02")}, {hyear=>2558}),
_h_nyepi ({_expand_dm("19-03")}, {hyear=>1929}),
_h_mawlid ({_expand_dm("31-03")}),
_h_goodfri ({_expand_dm("06-04")}),
($ascension2007 =
_h_ascension ({_expand_dm("17-05")})),
_h_vesakha ({_expand_dm("01-06")}, {hyear=>2551}),
_h_isramiraj ({_expand_dm("11-08")}),
($eidulf2007 =
_h_eidulf ({_expand_dm("13-10")}, {hyear=>1428, day=>1})),
_h_eidulf ({_expand_dm("14-10")}, {hyear=>1428, day=>2}),
_h_eidula ({_expand_dm("20-12")}, {hyear=>1428}),
_jointlv ({_expand_dm("18-05")}, {holiday=>$ascension2007}),
_jointlv ({_expand_dm("12-10")}, {holiday=>$eidulf2007}),
_jointlv ({_expand_dm("15-10")}, {holiday=>$eidulf2007}),
_jointlv ({_expand_dm("16-10")}, {holiday=>$eidulf2007}),
_jointlv ({_expand_dm("21-12")}, {holiday=>$christmas}),
_jointlv ({_expand_dm("24-12")}, {holiday=>$christmas}),
];
# decreed feb 5, 2008 (?)
my $hijra2008a;
my $eidulf2008;
$year_holidays{2008} = [
($hijra2008a =
_h_hijra ({_expand_dm("10-01")}, {hyear=>1429})),
_h_chnewyear ({_expand_dm("07-02")}, {hyear=>2559}),
_h_nyepi ({_expand_dm("07-03")}, {hyear=>1930}),
_h_mawlid ({_expand_dm("20-03")}),
_h_goodfri ({_expand_dm("21-03")}),
_h_ascension ({_expand_dm("01-05")}),
_h_vesakha ({_expand_dm("20-05")}, {hyear=>2552}),
_h_isramiraj ({_expand_dm("30-07")}),
($eidulf2008 =
_h_eidulf ({_expand_dm("01-10")}, {hyear=>1429, day=>1})),
_h_eidulf ({_expand_dm("02-10")}, {hyear=>1429, day=>2}),
_h_eidula ({_expand_dm("08-12")}),
_h_hijra ({_expand_dm("29-12")}, {hyear=>1430}),
_jointlv ({_expand_dm("11-01")}, {holiday=>$hijra2008a}),
_jointlv ({_expand_dm("29-09")}, {holiday=>$eidulf2008}),
_jointlv ({_expand_dm("30-09")}, {holiday=>$eidulf2008}),
_jointlv ({_expand_dm("03-10")}, {holiday=>$eidulf2008}),
_jointlv ({_expand_dm("26-12")}, {holiday=>$christmas}),
];
# decreed juni 9, 2008
my $eidulf2009;
$year_holidays{2009} = [
_h_chnewyear ({_expand_dm("26-01")}, {hyear=>2560}),
_h_mawlid ({_expand_dm("09-03")}),
_h_nyepi ({_expand_dm("26-03")}, {hyear=>1931}),
_h_lelection ({_expand_dm("09-04")}, {}),
_h_goodfri ({_expand_dm("10-04")}),
_h_vesakha ({_expand_dm("09-05")}, {hyear=>2553}),
_h_ascension ({_expand_dm("21-05")}),
_h_pelection ({_expand_dm("08-07")}, {}),
_h_isramiraj ({_expand_dm("20-07")}),
($eidulf2009 =
_h_eidulf ({_expand_dm("21-09")}, {hyear=>1430, day=>1})),
_h_eidulf ({_expand_dm("22-09")}, {hyear=>1430, day=>2}),
_h_eidula ({_expand_dm("27-11")}),
_h_hijra ({_expand_dm("18-12")}, {hyear=>1431}),
_jointlv ({_expand_dm("02-01")}, {holiday=>$newyear}),
_jointlv ({_expand_dm("18-09")}, {holiday=>$eidulf2009}),
_jointlv ({_expand_dm("23-09")}, {holiday=>$eidulf2009}),
_jointlv ({_expand_dm("24-12")}, {holiday=>$christmas}),
];
# decreed aug 7, 2009
my $eidulf2010;
$year_holidays{2010} = [
_h_chnewyear ({_expand_dm("14-02")}, {hyear=>2561}),
_h_mawlid ({_expand_dm("26-02")}),
_h_nyepi ({_expand_dm("16-03")}, {hyear=>1932}),
_h_goodfri ({_expand_dm("02-04")}),
_h_vesakha ({_expand_dm("28-05")}, {hyear=>2554}),
_h_ascension ({_expand_dm("02-06")}),
_h_isramiraj ({_expand_dm("10-07")}),
($eidulf2010 =
_h_eidulf ({_expand_dm("10-09")}, {hyear=>1431, day=>1})),
_h_eidulf ({_expand_dm("11-09")}, {hyear=>1431, day=>2}),
_h_eidula ({_expand_dm("17-11")}),
_h_hijra ({_expand_dm("07-12")}, {hyear=>1432}),
_jointlv ({_expand_dm("09-09")}, {holiday=>$eidulf2010}),
_jointlv ({_expand_dm("13-09")}, {holiday=>$eidulf2010}),
_jointlv ({_expand_dm("24-12")}, {holiday=>$christmas}),
];
# decreed jun 15, 2010
my $eidulf2011;
$year_holidays{2011} = [
_h_chnewyear ({_expand_dm("03-02")}, {hyear=>2562}),
_h_mawlid ({_expand_dm("16-02")}),
_h_nyepi ({_expand_dm("05-03")}, {hyear=>1933}),
_h_goodfri ({_expand_dm("22-04")}),
_h_vesakha ({_expand_dm("17-05")}, {hyear=>2555}),
_h_ascension ({_expand_dm("02-06")}),
_h_isramiraj ({_expand_dm("29-06")}),
($eidulf2011 =
_h_eidulf ({_expand_dm("30-08")}, {hyear=>1432, day=>1})),
_h_eidulf ({_expand_dm("31-08")}, {hyear=>1432, day=>2}),
_h_eidula ({_expand_dm("07-11")}),
_h_hijra ({_expand_dm("27-11")}, {hyear=>1433}),
_jointlv ({_expand_dm("29-08")}, {holiday=>$eidulf2011}),
_jointlv ({_expand_dm("01-09")}, {holiday=>$eidulf2011}),
_jointlv ({_expand_dm("02-09")}, {holiday=>$eidulf2011}),
_jointlv ({_expand_dm("26-12")}, {holiday=>$christmas}),
];
# decreed may 16, 2011
my $eidulf2012;
$year_holidays{2012} = [
_h_chnewyear ({_expand_dm("23-01")}, {hyear=>2563}),
_h_mawlid ({_expand_dm("04-02")}),
_h_nyepi ({_expand_dm("23-03")}, {hyear=>1934}),
_h_goodfri ({_expand_dm("06-04")}),
_h_vesakha ({_expand_dm("06-05")}, {hyear=>2556}),
_h_ascension ({_expand_dm("17-05")}),
_h_isramiraj ({_expand_dm("16-06")}),
($eidulf2012 =
_h_eidulf ({_expand_dm("19-08")}, {hyear=>1433, day=>1})),
_h_eidulf ({_expand_dm("20-08")}, {hyear=>1433, day=>2}),
_h_eidula ({_expand_dm("26-10")}),
_h_hijra ({_expand_dm("15-11")}, {hyear=>1434}),
_jointlv ({_expand_dm("21-08")}, {holiday=>$eidulf2012}),
_jointlv ({_expand_dm("22-08")}, {holiday=>$eidulf2012}),
_jointlv ({_expand_dm("26-12")}, {holiday=>$christmas}),
];
# decreed jul 19, 2012
my $eidulf2013;
my $eidula2013;
$year_holidays{2013} = [
_h_mawlid ({_expand_dm("24-01")}),
_h_chnewyear ({_expand_dm("10-02")}, {hyear=>2564}),
_h_nyepi ({_expand_dm("12-03")}, {hyear=>1935}),
_h_goodfri ({_expand_dm("29-03")}),
_h_ascension ({_expand_dm("09-05")}),
_h_vesakha ({_expand_dm("25-05")}, {hyear=>2557}),
_h_isramiraj ({_expand_dm("06-06")}),
($eidulf2013 =
_h_eidulf ({_expand_dm("08-08")}, {hyear=>1434, day=>1})),
_h_eidulf ({_expand_dm("09-08")}, {hyear=>1434, day=>2}),
($eidula2013 =
_h_eidula ({_expand_dm("15-10")})),
_h_hijra ({_expand_dm("05-11")}, {hyear=>1435}),
_jointlv ({_expand_dm("05-08")}, {holiday=>$eidulf2013}),
_jointlv ({_expand_dm("06-08")}, {holiday=>$eidulf2013}),
_jointlv ({_expand_dm("07-08")}, {holiday=>$eidulf2013}),
_jointlv ({_expand_dm("14-10")}, {holiday=>$eidula2013}),
_jointlv ({_expand_dm("26-12")}, {holiday=>$christmas}),
];
# decreed aug 21, 2013
#
# Surat Keputusan Bersama MenPAN dan RB, Menteri Tenaga Kerja dan Transmigrasi,
# dan Menteri Agama, Rabu (21/8/2013).
#
# ref:
# - http://www.menpan.go.id/berita-terkini/1713-tahun-2014-libur-nasional-dan-cuti-bersama-19-hari
# - http://nasional.kompas.com/read/2013/08/21/1314422/2014.Ada.19.Hari.Libur.Nasional.dan.Cuti.Bersama
# - http://www.kaskus.co.id/thread/52145f5359cb175740000007/jadwal-hari-libur-nasional-amp-cuti-bersama-tahun-2014-resmi--download-kalender/
my $eidulf2014;
my $eidula2014;
$year_holidays{2014} = [
_h_mawlid ({_expand_dm("14-01")}),
_h_chnewyear ({_expand_dm("31-01")}, {hyear=>2565}),
_h_nyepi ({_expand_dm("31-03")}, {hyear=>1936}),
_h_lelection ({_expand_dm("09-04")}, {decree_date=>'2014-04-03', decree_note=>"Keppres 14/2014"}),
_h_goodfri ({_expand_dm("18-04")}),
_h_vesakha ({_expand_dm("15-05")}, {hyear=>2558}),
_h_isramiraj ({_expand_dm("27-05")}),
_h_ascension ({_expand_dm("29-05")}),
# sudah ditetapkan KPU tapi belum ada keppres
_make_tentative(
_h_pelection ({_expand_dm("09-07")}, {}),
),
($eidulf2014 =
_h_eidulf ({_expand_dm("28-07")}, {hyear=>1435, day=>1}),
_h_eidulf ({_expand_dm("29-07")}, {hyear=>1435, day=>2})),
($eidula2014 =
_h_eidula ({_expand_dm("05-10")}, {hyear=>1435})),
_h_hijra ({_expand_dm("25-10")}, {hyear=>1436}),
_jointlv ({_expand_dm("30-07")}, {holiday=>$eidulf2014}),
_jointlv ({_expand_dm("31-07")}, {holiday=>$eidulf2014}),
_jointlv ({_expand_dm("01-08")}, {holiday=>$eidulf2014}),
_jointlv ({_expand_dm("26-12")}, {holiday=>$christmas}),
];
my @years = sort keys %year_holidays;
our $min_year = $years[0];
our $max_year = $years[-1];
our $max_joint_leave_year;
for my $y (reverse @years) {
if (grep {$_->{is_joint_leave}} @{$year_holidays{$y}}) {
$max_joint_leave_year = $y;
last;
}
}
my @holidays;
for my $year ($min_year .. $max_year) {
my @hf;
for my $h0 (@fixed_holidays) {
next if $h0->{year_start} && $year < $h0->{year_start};
next if $h0->{year_en} && $year > $h0->{year_end};
my $h = clone $h0;
push @{$h->{tags}}, "fixed-date";
$h->{is_holiday} = 1;
$h->{is_joint_leave} = 0;
push @hf, $h;
}
my @hy;
for my $h0 (@{$year_holidays{$year}}) {
my $h = clone $h0;
$h->{is_holiday} //= 0;
$h->{is_joint_leave} //= 0;
delete $h->{ind_name0};
delete $h->{eng_name0};
push @hy, $h;
}
for my $h (@hf, @hy) {
$h->{year} = $year;
my $dt = DateTime->new(year=>$year, month=>$h->{month}, day=>$h->{day});
$h->{date} = $dt->ymd;
$h->{dow} = $dt->day_of_week;
}
push @holidays, (sort {$a->{date} cmp $b->{date}} @hf, @hy);
}
my $res = gen_read_table_func(
name => 'list_id_holidays',
table_data => \@holidays,
table_spec => {
fields => {
date => {
schema => 'date*',
pos => 0,
searchable => 0,
},
day => {
schema => 'int*',
pos => 1,
},
month => {
schema => 'int*',
pos => 2,
},
year => {
schema => 'int*',
pos => 3,
},
dow => {
schema => 'int*',
summary => 'Day of week (1-7, Monday is 1)',
pos => 4,
},
eng_name => {
schema => 'str*',
summary => 'English name',
pos => 5,
filterable => 0,
sortable => 0,
},
ind_name => {
schema => 'str*',
summary => 'Indonesian name',
pos => 6,
filterable => 0,
sortable => 0,
},
eng_aliases => {
schema => ['array*'=>{of=>'str*'}],
summary => 'English other names, if any',
pos => 7,
filterable => 0,
sortable => 0,
},
ind_aliases => {
schema => ['array*'=>{of=>'str*'}],
summary => 'Indonesian other names, if any',
pos => 8,
filterable => 0,
sortable => 0,
},
is_holiday => {
schema => 'bool*',
pos => 9,
},
is_joint_leave => {
schema => 'bool*',
summary => 'Whether this date is a joint leave day '.
'("cuti bersama")',
pos => 10,
},
decree_date => {
schema => 'str',
pos => 11,
sortable => 1,
},
decree_note => {
schema => 'str',
pos => 12,
sortable => 0,
},
note => {
schema => 'str',
pos => 13,
sortable => 0,
},
tags => {
schema => 'array*',
pos => 14,
sortable => 0,
},
},
pk => 'date',
},
langs => ['en_US', 'id_ID'],
);
die "BUG: Can't generate func: $res->[0] - $res->[1]"
unless $res->[0] == 200;
$SPEC{list_id_holidays}{args}{year}{pos} = 0;
$SPEC{list_id_holidays}{args}{month}{pos} = 1;
my $AVAILABLE_YEARS =
"Contains data from years $min_year to $max_year (joint leave days until\n".
"$max_joint_leave_year).";
my $meta = $res->[2]{meta};
$meta->{summary} = "List Indonesian holidays in calendar";
$meta->{description} = <<"_";
List holidays and joint leave days ("cuti bersama").
$AVAILABLE_YEARS
_
sub _check_date_arg {
my ($date) = @_;
if (ref($date) && $date->isa('DateTime')) {
return $date;
} elsif ($date =~ /\A(\d{4})-(\d{2})-(\d{2})\z/) {
return DateTime->new(year=>$1, month=>$2, day=>$3);
} else {
return;
}
}
$SPEC{enum_id_workdays} = {
v => 1.1,
summary => 'Enumerate working days for a certain period',
description => <<"_",
Working day is defined as day that is not Saturday*/Sunday/holiday/joint leave
days*. If work_saturdays is set to true, Saturdays are also counted as working
days. If observe_joint_leaves is set to false, joint leave days are also counted
as working days.
$AVAILABLE_YEARS
_
args => {
start_date => {
summary => 'Starting date',
schema => 'str*',
description => <<'_',
Defaults to start of current month. Either a string in the form of "YYYY-MM-DD",
or a DateTime object, is accepted.
_
},
end_date => {
summary => 'End date',
schema => 'str*',
description => <<'_',
Defaults to end of current month. Either a string in the form of "YYYY-MM-DD",
or a DateTime object, is accepted.
_
},
work_saturdays => {
schema => ['bool' => {default=>0}],
summary => 'If set to 1, Saturday is a working day',
},
observe_joint_leaves => {
summary => 'If set to 0, do not observe joint leave as holidays',
schema => ['bool' => {default => 1}],
},
},
};
sub enum_id_workdays {
my %args = @_;
# XXX args
my $now = DateTime->now;
my $som = DateTime->new(year => $now->year, month => $now->month, day => 1);
my $eom = $som->clone->add(months=>1)->subtract(days=>1);
my $start_date = _check_date_arg($args{start_date} // $som) or
return [400, "Invalid start_date, must be string 'YYYY-MM-DD' ".
"or DateTime object"];
my $end_date = _check_date_arg($args{end_date} // $eom) or
return [400, "Invalid end_date, must be string 'YYYY-MM-DD' ".
"or DateTime object"];
for ($start_date, $end_date) {
return [400, "Sorry, no data for year earlier than $min_year available"]
if $_->year < $min_year;
return [400, "Sorry, no data for year newer than $max_year available"]
if $_->year > $max_year;
}
my $work_saturdays = $args{work_saturdays} // 0;
my $observe_joint_leaves = $args{observe_joint_leaves} // 1;
my @args;
push @args, "year.min"=>$start_date->year;
push @args, "year.max"=>$end_date->year;
push @args, (is_holiday=>1) if !$observe_joint_leaves;
my $res = list_id_holidays(@args);
return err(500, "Can't list holidays", $res)
unless $res->[0] == 200;
#use Data::Dump; dd $res;
my @wd;
my $dt = $start_date->clone->subtract(days=>1);
while (1) {
$dt->add(days=>1);
next if $dt->day_of_week == 7;
next if $dt->day_of_week == 6 && !$work_saturdays;
last if DateTime->compare($dt, $end_date) > 0;
my $ymd = $dt->ymd;
next if $ymd ~~ @{$res->[2]};
push @wd, $ymd;
}
[200, "OK", \@wd];
}
gen_modified_sub(
output_name => 'count_id_workdays',
summary => "Count working days for a certain period",
base_name => 'enum_id_workdays',
output_code => sub {
my $res = enum_id_workdays(@_);
return $res unless $res->[0] == 200;
$res->[2] = @{$res->[2]};
$res;
},
);
1;
# ABSTRACT: List Indonesian public holidays
__END__
=pod
=encoding UTF-8
=head1 NAME
Calendar::Indonesia::Holiday - List Indonesian public holidays
=head1 VERSION
This document describes version 0.21 of Calendar::Indonesia::Holiday (from Perl distribution Calendar-Indonesia-Holiday), released on 2014-07-02.
=head1 SYNOPSIS
use Calendar::Indonesia::Holiday qw(
list_id_holidays
enum_id_workdays
count_id_workdays
);
# list Indonesian holidays for the year 2011, without the joint leave days
# ("cuti bersama"), show only the dates
my $res = list_id_holidays(year => 2011, is_joint_leave=>0);
# sample result
[200, "OK", [
'2011-01-01',
'2011-02-03',
'2011-02-16',
'2011-03-05',
'2011-04-22',
'2011-05-17',
'2011-06-02',
'2011-06-29',
'2011-08-17',
'2011-08-31',
'2011-09-01',
'2011-11-07',
'2011-11-27',
'2011-12-25',
]];
# list religious Indonesian holidays, show full details
my $res = list_id_holidays(year => 2011,
"tags.has" => ['religious'], detail=>1);
# sample result
[200, "OK", [
{date => '2011-02-16',
day => 16,
month => 2,
year => 2011,
ind_name => 'Maulid Nabi Muhammad',
eng_name => 'Mawlid',
eng_aliases => ['Mawlid An-Nabi'],
ind_aliases => ['Maulud'],
is_holiday => 1,
tags => [qw/religious religion=islam calendar=lunar/],
},
...
]];
# check whether 2011-02-16 is a holiday
my $res = list_id_holidays(date => '2011-02-16');
print "2011-02-16 is a holiday\n" if @{$res->[2]};
# enumerate working days for a certain period
my $res = enum_id_workdays(year=>2011, month=>7);
# idem, but returns a number instead. year/month defaults to current
# year/month.
my $res = count_id_workdays();
=head1 DESCRIPTION
This module provides functions to list Indonesian holidays.
This module uses L<Log::Any> logging framework.
This module has L<Rinci> metadata.
=head1 FUNCTIONS
=head2 count_id_workdays(%args) -> [status, msg, result, meta]
Count working days for a certain period.
Working day is defined as day that is not SaturdayI</Sunday/holiday/joint leave
days>. If workI<saturdays is set to true, Saturdays are also counted as working
days. If observe>joint_leaves is set to false, joint leave days are also counted
as working days.
Contains data from years 2002 to 2014 (joint leave days until
2014).
Arguments ('*' denotes required arguments):
=over 4
=item * B<end_date> => I<str>
End date.
Defaults to end of current month. Either a string in the form of "YYYY-MM-DD",
or a DateTime object, is accepted.
=item * B<observe_joint_leaves> => I<bool> (default: 1)
If set to 0, do not observe joint leave as holidays.
=item * B<start_date> => I<str>
Starting date.
Defaults to start of current month. Either a string in the form of "YYYY-MM-DD",
or a DateTime object, is accepted.
=item * B<work_saturdays> => I<bool> (default: 0)
If set to 1, Saturday is a working day.
=back
Return value:
Returns an enveloped result (an array).
First element (status) is an integer containing HTTP status code
(200 means OK, 4xx caller error, 5xx function error). Second element
(msg) is a string containing error message, or 'OK' if status is
200. Third element (result) is optional, the actual result. Fourth
element (meta) is called result metadata and is optional, a hash
that contains extra information.
=head2 enum_id_workdays(%args) -> [status, msg, result, meta]
Enumerate working days for a certain period.
Working day is defined as day that is not SaturdayI</Sunday/holiday/joint leave
days>. If workI<saturdays is set to true, Saturdays are also counted as working
days. If observe>joint_leaves is set to false, joint leave days are also counted
as working days.
Contains data from years 2002 to 2014 (joint leave days until
2014).
Arguments ('*' denotes required arguments):
=over 4
=item * B<end_date> => I<str>
End date.
Defaults to end of current month. Either a string in the form of "YYYY-MM-DD",
or a DateTime object, is accepted.
=item * B<observe_joint_leaves> => I<bool> (default: 1)
If set to 0, do not observe joint leave as holidays.
=item * B<start_date> => I<str>
Starting date.
Defaults to start of current month. Either a string in the form of "YYYY-MM-DD",
or a DateTime object, is accepted.
=item * B<work_saturdays> => I<bool> (default: 0)
If set to 1, Saturday is a working day.
=back
Return value:
Returns an enveloped result (an array).
First element (status) is an integer containing HTTP status code
(200 means OK, 4xx caller error, 5xx function error). Second element
(msg) is a string containing error message, or 'OK' if status is
200. Third element (result) is optional, the actual result. Fourth
element (meta) is called result metadata and is optional, a hash
that contains extra information.
=head2 list_id_holidays(%args) -> [status, msg, result, meta]
List Indonesian holidays in calendar.
List holidays and joint leave days ("cuti bersama").
Contains data from years 2002 to 2014 (joint leave days until
2014).
Arguments ('*' denotes required arguments):
=over 4
=item * B<date> => I<date>
Only return records where the 'date' field equals specified value.
=item * B<date.in> => I<array>
Only return records where the 'date' field is in the specified values.
=item * B<date.is> => I<date>
Only return records where the 'date' field equals specified value.
=item * B<date.isnt> => I<date>
Only return records where the 'date' field does not equal specified value.
=item * B<date.max> => I<date>
Only return records where the 'date' field is less than or equal to specified value.
=item * B<date.min> => I<date>
Only return records where the 'date' field is greater than or equal to specified value.
=item * B<date.not_in> => I<array>
Only return records where the 'date' field is not in the specified values.
=item * B<date.xmax> => I<date>
Only return records where the 'date' field is less than specified value.
=item * B<date.xmin> => I<date>
Only return records where the 'date' field is greater than specified value.
=item * B<day> => I<int>
Only return records where the 'day' field equals specified value.
=item * B<day.in> => I<array>
Only return records where the 'day' field is in the specified values.
=item * B<day.is> => I<int>
Only return records where the 'day' field equals specified value.
=item * B<day.isnt> => I<int>
Only return records where the 'day' field does not equal specified value.
=item * B<day.max> => I<int>
Only return records where the 'day' field is less than or equal to specified value.
=item * B<day.min> => I<int>
Only return records where the 'day' field is greater than or equal to specified value.
=item * B<day.not_in> => I<array>
Only return records where the 'day' field is not in the specified values.
=item * B<day.xmax> => I<int>
Only return records where the 'day' field is less than specified value.
=item * B<day.xmin> => I<int>
Only return records where the 'day' field is greater than specified value.
=item * B<decree_date> => I<str>
Only return records where the 'decree_date' field equals specified value.
=item * B<decree_date.contains> => I<str>
Only return records where the 'decree_date' field contains specified text.
=item * B<decree_date.in> => I<array>
Only return records where the 'decree_date' field is in the specified values.
=item * B<decree_date.is> => I<str>
Only return records where the 'decree_date' field equals specified value.
=item * B<decree_date.isnt> => I<str>
Only return records where the 'decree_date' field does not equal specified value.
=item * B<decree_date.max> => I<str>
Only return records where the 'decree_date' field is less than or equal to specified value.
=item * B<decree_date.min> => I<str>
Only return records where the 'decree_date' field is greater than or equal to specified value.
=item * B<decree_date.not_contains> => I<str>
Only return records where the 'decree_date' field does not contain specified text.
=item * B<decree_date.not_in> => I<array>
Only return records where the 'decree_date' field is not in the specified values.
=item * B<decree_date.xmax> => I<str>
Only return records where the 'decree_date' field is less than specified value.
=item * B<decree_date.xmin> => I<str>
Only return records where the 'decree_date' field is greater than specified value.
=item * B<decree_note> => I<str>
Only return records where the 'decree_note' field equals specified value.
=item * B<decree_note.contains> => I<str>
Only return records where the 'decree_note' field contains specified text.
=item * B<decree_note.in> => I<array>
Only return records where the 'decree_note' field is in the specified values.
=item * B<decree_note.is> => I<str>
Only return records where the 'decree_note' field equals specified value.
=item * B<decree_note.isnt> => I<str>
Only return records where the 'decree_note' field does not equal specified value.
=item * B<decree_note.max> => I<str>
Only return records where the 'decree_note' field is less than or equal to specified value.
=item * B<decree_note.min> => I<str>
Only return records where the 'decree_note' field is greater than or equal to specified value.
=item * B<decree_note.not_contains> => I<str>
Only return records where the 'decree_note' field does not contain specified text.
=item * B<decree_note.not_in> => I<array>
Only return records where the 'decree_note' field is not in the specified values.
=item * B<decree_note.xmax> => I<str>
Only return records where the 'decree_note' field is less than specified value.
=item * B<decree_note.xmin> => I<str>
Only return records where the 'decree_note' field is greater than specified value.
=item * B<detail> => I<bool> (default: 0)
Return array of full records instead of just ID fields.
By default, only the key (ID) field is returned per result entry.
=item * B<dow> => I<int>
Only return records where the 'dow' field equals specified value.
=item * B<dow.in> => I<array>
Only return records where the 'dow' field is in the specified values.
=item * B<dow.is> => I<int>
Only return records where the 'dow' field equals specified value.
=item * B<dow.isnt> => I<int>
Only return records where the 'dow' field does not equal specified value.
=item * B<dow.max> => I<int>
Only return records where the 'dow' field is less than or equal to specified value.
=item * B<dow.min> => I<int>
Only return records where the 'dow' field is greater than or equal to specified value.
=item * B<dow.not_in> => I<array>
Only return records where the 'dow' field is not in the specified values.
=item * B<dow.xmax> => I<int>
Only return records where the 'dow' field is less than specified value.
=item * B<dow.xmin> => I<int>
Only return records where the 'dow' field is greater than specified value.
=item * B<fields> => I<array>
Select fields to return.
=item * B<is_holiday> => I<bool>
Only return records where the 'is_holiday' field equals specified value.
=item * B<is_holiday.is> => I<bool>
Only return records where the 'is_holiday' field equals specified value.
=item * B<is_holiday.isnt> => I<bool>
Only return records where the 'is_holiday' field does not equal specified value.
=item * B<is_joint_leave> => I<bool>
Only return records where the 'is_joint_leave' field equals specified value.
=item * B<is_joint_leave.is> => I<bool>
Only return records where the 'is_joint_leave' field equals specified value.
=item * B<is_joint_leave.isnt> => I<bool>
Only return records where the 'is_joint_leave' field does not equal specified value.
=item * B<month> => I<int>
Only return records where the 'month' field equals specified value.
=item * B<month.in> => I<array>
Only return records where the 'month' field is in the specified values.
=item * B<month.is> => I<int>
Only return records where the 'month' field equals specified value.
=item * B<month.isnt> => I<int>
Only return records where the 'month' field does not equal specified value.
=item * B<month.max> => I<int>
Only return records where the 'month' field is less than or equal to specified value.
=item * B<month.min> => I<int>
Only return records where the 'month' field is greater than or equal to specified value.
=item * B<month.not_in> => I<array>
Only return records where the 'month' field is not in the specified values.
=item * B<month.xmax> => I<int>
Only return records where the 'month' field is less than specified value.
=item * B<month.xmin> => I<int>
Only return records where the 'month' field is greater than specified value.
=item * B<note> => I<str>
Only return records where the 'note' field equals specified value.
=item * B<note.contains> => I<str>
Only return records where the 'note' field contains specified text.
=item * B<note.in> => I<array>
Only return records where the 'note' field is in the specified values.
=item * B<note.is> => I<str>
Only return records where the 'note' field equals specified value.
=item * B<note.isnt> => I<str>
Only return records where the 'note' field does not equal specified value.
=item * B<note.max> => I<str>
Only return records where the 'note' field is less than or equal to specified value.
=item * B<note.min> => I<str>
Only return records where the 'note' field is greater than or equal to specified value.
=item * B<note.not_contains> => I<str>
Only return records where the 'note' field does not contain specified text.
=item * B<note.not_in> => I<array>
Only return records where the 'note' field is not in the specified values.
=item * B<note.xmax> => I<str>
Only return records where the 'note' field is less than specified value.
=item * B<note.xmin> => I<str>
Only return records where the 'note' field is greater than specified value.
=item * B<q> => I<str>
Search.
=item * B<random> => I<bool> (default: 0)
Return records in random order.
=item * B<result_limit> => I<int>
Only return a certain number of records.
=item * B<result_start> => I<int> (default: 1)
Only return starting from the n'th record.
=item * B<sort> => I<str>
Order records according to certain field(s).
A list of field names separated by comma. Each field can be prefixed with '-' to
specify descending order instead of the default ascending.
=item * B<tags> => I<array>
Only return records where the 'tags' field equals specified value.
=item * B<tags.has> => I<array>
Only return records where the 'tags' field is an array/list which contains specified value.
=item * B<tags.is> => I<array>
Only return records where the 'tags' field equals specified value.
=item * B<tags.isnt> => I<array>
Only return records where the 'tags' field does not equal specified value.
=item * B<tags.lacks> => I<array>
Only return records where the 'tags' field is an array/list which does not contain specified value.
=item * B<with_field_names> => I<bool>
Return field names in each record (as hash/associative array).
When enabled, function will return each record as hash/associative array
(field name => value pairs). Otherwise, function will return each record
as list/array (field value, field value, ...).
=item * B<year> => I<int>
Only return records where the 'year' field equals specified value.
=item * B<year.in> => I<array>
Only return records where the 'year' field is in the specified values.
=item * B<year.is> => I<int>
Only return records where the 'year' field equals specified value.
=item * B<year.isnt> => I<int>
Only return records where the 'year' field does not equal specified value.
=item * B<year.max> => I<int>
Only return records where the 'year' field is less than or equal to specified value.
=item * B<year.min> => I<int>
Only return records where the 'year' field is greater than or equal to specified value.
=item * B<year.not_in> => I<array>
Only return records where the 'year' field is not in the specified values.
=item * B<year.xmax> => I<int>
Only return records where the 'year' field is less than specified value.
=item * B<year.xmin> => I<int>
Only return records where the 'year' field is greater than specified value.
=back
Return value:
Returns an enveloped result (an array).
First element (status) is an integer containing HTTP status code
(200 means OK, 4xx caller error, 5xx function error). Second element
(msg) is a string containing error message, or 'OK' if status is
200. Third element (result) is optional, the actual result. Fourth
element (meta) is called result metadata and is optional, a hash
that contains extra information.
=head1 FAQ
=head2 What is "joint leave"?
Workers are normally granted 12 days of paid leave per year. They are free to
spend it on whichever days they want. The joint leave ("cuti bersama") is a
government program of recent years (since 2002) to recommend that some of these
leave days be spent together nationally on certain days, especially during
Lebaran (Eid Ul-Fitr). It is not mandated, but many do follow it anyway, e.g.
government civil workers, banks, etc. I am marking joint leave days with
is_joint_leave=1 and is_holiday=0, while the holidays themselves with
is_holiday=1, so you can differentiate/select both/either one.
=head2 Holidays before 2002?
Will be provided if there is demand and data source.
=head2 Holidays after (current year)+1?
Some religious holidays, especially Vesakha, are not determined yet. Joint leave
days are also usually decreed by the government in May/June of the preceding
year.
=head1 SEE ALSO
This API will also be available on GudangAPI, http://gudangapi.com/
Aside from national holidays, some provinces declare their own (e.g. governor
election day for East Java province, etc).
=head1 HOMEPAGE
Please visit the project's homepage at L<https://metacpan.org/release/Calendar-Indonesia-Holiday>.
=head1 SOURCE
Source repository is at L<https://github.com/sharyanto/perl-Calendar-Indonesia-Holiday>.
=head1 BUGS
Please report any bugs or feature requests on the bugtracker website L<https://rt.cpan.org/Public/Dist/Display.html?Name=Calendar-Indonesia-Holiday>
When submitting a bug or request, please include a test-file or a
patch to an existing test-file that illustrates the bug or desired
feature.
=head1 AUTHOR
Steven Haryanto <stevenharyanto@gmail.com>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2014 by Steven Haryanto.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut