File Coverage

blib/lib/Date/Cutoff/JP.pm

Criterion	Covered	Total	%
statement	65	65	100.0
branch	8	10	80.0
condition	5	5	100.0
subroutine	14	14	100.0
pod	1	1	100.0
total	93	95	97.8

package Date::Cutoff::JP;
use 5.008001;
use strict;
use warnings;

our $VERSION = "0.08";

use Carp;
use Time::Seconds;
use Time::Piece;
my $tp = Time::Piece->new();
use Calendar::Japanese::Holiday;
use Date::DayOfWeek;

use Moo;
use Types::Standard qw/Int/;
use namespace::clean;

has cutoff => ( is => 'rw', isa => Int, default => 0 );
has payday => ( is => 'rw', isa => Int, default => 0 );
has late   => ( is => 'rw', isa => Int, default => 1 );

around 'cutoff' => sub {
    my $orig = shift;
    my $self = shift;
    return $self->$orig() unless @_;

    my $value = shift;
    croak "unvalid cutoff was set: $value" if $value < 0 or 28 < $value;
    my $day = $value? $value: 31;
     croak "cuttoff must be before payday"
    if $day >= $self->payday and $self->late == 0;
    return $self->$orig($value);
};

around 'payday' => sub {
    my $orig = shift;
    my $self = shift;
    return $self->$orig() unless @_;

    my $value = shift;
    croak "unvalid payday was set: $value" if $value < 0 or 28 < $value;
    my $day = $value? $value: 31;
     croak "payday must be after cuttoff"
    if $day <= $self->cutoff and $self->late == 0;
    return $self->$orig($value);
};

around 'late' => sub {
    my $orig = shift;
    my $self = shift;
    return $self->$orig() unless @_;
    my $value = shift;
    croak "unvalid lateness was set: $value" if $value < 0 or 2 < $value;
     croak "payday is before cuttoff in same month"
    if $value == 0 and $self->payday <= $self->cutoff;
    return $self->$orig($value);
};

no Moo;

sub _isWeekend {
    my $self = shift;
    my ($y, $m, $d ) = split "-", shift;
    my $dow = dayofweek( $d, $m, $y );
    return isHoliday( $y, 0+$m, 0+$d, 1 ) || $dow == 6 || $dow == 0;
}

sub calc_date {
    my $self = shift;
    my $until = shift if @_;
    my $t = $until? $tp->strptime( $until, '%Y-%m-%d' ) : localtime();

    my $cutoff = $self->cutoff? $self->cutoff: $t->month_last_day();
    my $str = $t->strftime('%Y-%m-') . sprintf( "%02d", $cutoff );
    my $ref_day = $t->strptime( $str, '%Y-%m-%d');
    my $over = 0;
    if ( $ref_day->epoch() < $t->epoch() ) {
        $over = 1;
        $ref_day += ONE_DAY() * $ref_day->month_last_day();
    }

    $cutoff = $ref_day->ymd();
    while( $self->_isWeekend($cutoff) ){
        my $ref_day = $t->strptime( $cutoff, '%Y-%m-%d');
        $ref_day += ONE_DAY();
        $cutoff = $ref_day->ymd();
    }

    $ref_day += ONE_DAY() * 28 * ( $self->late || 0 );
    $str = $ref_day->strftime('%Y-%m-%d');
    $ref_day = $t->strptime( $str, '%Y-%m-%d');

    my $payday = $self->payday? $self->payday:  $ref_day->month_last_day();
    $str = $ref_day->strftime('%Y-%m-') . sprintf( "%02d", $payday );

    my $date = $t->strptime( $str, '%Y-%m-%d' )->ymd();
    while( $self->_isWeekend($date) ){
        my $ref_day = $t->strptime( $date, '%Y-%m-%d');
        $ref_day += ONE_DAY();
        $date = $ref_day->ymd();
    }
    return ( cutoff => $cutoff, payday => $date, is_over => $over );
}

1;
__END__