view release on metacpan or  search on metacpan

lib/Calendar/Japanese/Acme/Syukujitsu.pm  view on Meta::CPAN

    } => $class
}

sub get_syukujitsus {
    args
        my $self,
        my $year,
        my $month => {optional => 1},
        my $day => {optional => 1};

    croak "$year is too old for Japanese government calendar." if $year < $self->min_year;
    croak "$year is too new for Japanese government calendar." if $year > $self->max_year;

    if (!$day and !$month) {
        return $self->syukujitsus->{$year};
    } elsif (!$day) {
        return $self->syukujitsus->{$year}{$month};
    } else {
        return $self->syukujitsus->{$year}{$month}{$day};
    }
}

sub is_syukujitsu {
    args
        my $self,
        my $year,
        my $month,
        my $day;

    croak "$year is too old for Japanese government calendar." if $year < $self->min_year;
    croak "$year is too new for Japanese government calendar." if $year > $self->max_year;

    return $self->syukujitsus->{$year}{$month}{$day};
}

1;

__END__

=head1 NAME