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 calendar.

You can calculate the weekday for cutoff and paying without holidays in Japan.

Constructor

new({ [cutoff => $day], [payday => $day], [late => 0||1||2] })

You may omit parameters. defaults are { cutoff => 0, payday => 0, late => 1 }

Accessor Methods

cutoff()

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

caution Int over 28 is denied

payday()

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

caution Int over 28 is denied

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])

You may omit the parameter. default is TODAY.

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

SEE ALSO

Calendar::Japanese::Holiday,Date::DayOfWeek

日本の祝日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