Date::Japanese::Holiday

Date::Japanese::Holidayとは

Date::Japanese::Holidayをuseすると、Date::Simpleにその日付が日本の休日か否かを返すメソッドを追加されます。
以下、2009年の休日一覧を表示する簡単な使用例です。

 my $date  = Date::Simple->new('2009-01-01');
 for my $i (1..365) {
     print $date, "\n" if $date->is_holiday;
     $date ++;
 }

注意

2009年で確認した限りでは、5/6の休日が休日と判定されませんでした。
これは、5/4が休日として登録されていないのがおそらく原因なので、Date/Japanese/Holiday.pm を修正すれば事足りるかとは思うのですが、このモジュールはマジックナンバーがかなり大量に含まれているので全体的な動作として問題ないのかどうかは不明です。