The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Date::CutOff::JP - Get the day cutoff and payday for in Japanese timezone

SYNOPSIS

 use Date::CutOff::JP;
 my $dco = Date::CutOff::JP->new({ cutoff => 0, late => 1, payday => 0 });
 my %calculated = $dco->calc_date('2019-01-01');
 print $calculated{'cutoff'}; # '2019-01-31'
 print $calculated{'payday'}; # '2019-02-28'

DESCRIPTION

Date::CutOff::JP provides how to calculate the day cutoff and the payday from Japanese calender.

you can calculate the weekday for cutoff and paying without holiday in Japan.

Accessor Methods

cutoff()

get/set the day cutoff in every months. 0 means the end of the month.

payday()

get/set the payday in every months. 0 means the end of the month.

late()

get/set the lateness. 0 means the cutoff and payday is at same month.

The all you can set is Int of [ 0 .. 2 ] 3 or more returns error.

Method

calc_date($date)

returns hash value with keys below:

cutoff

The latest cutoff after $date.

payday

The latest payday after $date.

is_over ( maybe bad key name )

Is or not that the cutoff is pending until next month.

BUGS

Because of dependency: Date::Japanese::Holiday

山の日

11th of Aug is a holiday as '山の日' since 2016 but this module doesn't support it yet.

天皇即位の日

1st of May is special holiday especially 2019 but this module doesn't support it yet.

SEE ALSO

Date::Simple, Date::Japanese::Holiday, 日本の祝日YAML

LICENSE

Copyright (C) worthmine.

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

AUTHOR

worthmine <worthmine@cpan.org>