File Coverage

blib/lib/Date/Holidays/ES.pm

Criterion	Covered	Total	%
statement	50	51	98.0
branch	6	12	50.0
condition			n/a
subroutine	12	12	100.0
pod	6	6	100.0
total	74	81	91.3

package Date::Holidays::ES;
use base 'Date::Holidays::Super';
use warnings;
use strict;

use Date::Easter ();
use Time::JulianDay ();
use Carp qw(croak);

our $VERSION = '0.02';


sub new {
    my $class = shift;
    return bless \$class, $class;
}

sub is_holiday {
    my ($self, %params) = @_;
    my $year  = $params{'year'}  or croak 'Missing year argument';
    my $month = $params{'month'} or croak 'Missing month argument';
    my $day   = $params{'day'}   or croak 'Missing day argument';

    my $holidays = $self->holidays(year => $year);

    my $month_day = sprintf "%02d%02d", $month, $day;

    if (exists $holidays->{$month_day}) {
        return $holidays->{$month_day};
    }

    return;
}

sub is_es_holiday {
    my $self = shift;
    return $self->is_holiday(@_);
}

sub holidays {
    my ($self, %params) = @_;
    my $year = $params{'year'} or croak 'Missing year argument';

    my $holidays = {
        '0101'  => 'Año Nuevo',
        #'0106'  => 'Día de Reyes',
        '0501'  => 'Día del Trabajo',
        '1012'  => 'Día de la Hispanidad',
        '1101'  => 'Día de Todos los Santos',
        '1206'  => 'Día de la Constitución',
        '1208'  => 'Día de la Inmaculada Concepción',
        '1225'  => 'Navidad',
    };

    my ($emonth, $eday) = Date::Easter::gregorian_easter($year);
    my $jd = Time::JulianDay::julian_day($year, $emonth, $eday);

    my (undef, $smonth, $sday) = Time::JulianDay::inverse_julian_day($jd - 2);
    my $month_day = sprintf "%02d%02d", $smonth, $sday;
    $holidays->{$month_day} = 'Viernes Santo';

    return $holidays;
}

sub es_holidays {
    my $self = shift;
    return $self->holidays(@_);
}

sub holidays_es {
    my ($self, %params) = @_;
    my $year = $params{'year'} or croak 'Missing year argument';

    my $holidays = $self->holidays(year => $year);
    my %hd = ();

    require DateTime;

    for my $month_day (keys %$holidays) {
        my ($month, $day) = unpack "A2A2", $month_day;
        $hd{ $holidays->{$month_day} } = DateTime->new(
            year  => $year,
            month => $month,
            day   => $day,
        );
    }

    return \%hd;
}

__END__