Skip to the content.

Date::Holidays

CPAN version stability-stable Build Status Coverage Status License: Artistic-2.0

NAME

Date::Holidays - Date::Holidays::* adapter and aggregator for all your holiday needs

VERSION

The documentation describes version 1.35 of Date::Holidays

FEATURES

SYNOPSIS

use Date::Holidays;

# Initialize a national holidays using the ISO 3361 country code
my $dh = Date::Holidays->new(
    countrycode => 'dk'
);

# Inquire and get a local name for a holiday if it is a national holiday
my $holidayname = $dh->is_holiday(
    year  => 2004,
    month => 12,
    day   => 25
);

# Inquire and get a set of local names for national holiday in a given country
my $hashref = $dh->holidays(
    year => 2004
);

# Inquire and get local names for a set of countries, where the specific date is a
# national holiday
$holidays_hashref = Date::Holidays->is_holiday(
    year      => 2004,
    month     => 12,
    day       => 25,
    countries => ['se', 'dk', 'no'],
);

foreach my $country (keys %{$holidays_hashref}) {
    print $holidays_hashref->{$country}."\n";
}

# Example of a module with additional parameters
# Australia is divided into states with local holidays
# using ISO-3166-2 codes
my $dh = Date::Holidays->new(
    countrycode => 'au'
);

$holidayname = $dh->is_holiday(
    year  => 2004,
    month => 12,
    day   => 25,
    state => 'TAS',
);

$hashref = $dh->holidays(
    year => 2004
    state => 'TAS',
);

# Another example of a module with additional parameters
# Great Britain is divided into regions with local holidays
# using ISO-3166-2 codes
my $dh = Date::Holidays->new(
    countrycode => 'gb'
);

$holidayname = $dh->is_holiday(
    year    => 2014,
    month   => 12,
    day     => 25,
    regions => ['EAW'],
);

$hashref = $dh->holidays(
    year    => 2014
    regions => ['EAW'],
);

DESCRIPTION

Date::Holidays is an adapters exposing a uniform API to a set of distributions in the Date::Holidays::* namespace. All of these modules deliver methods and information on national calendars, but no standardized API exist.

The distributions more or less follow a de facto standard (see: also the generic adapter Date::Holidays::Adapter), but the adapters are implemented to uniform this and Date::Holidays exposes a more readable API and at the same time it provides an OO interface, to these diverse implementations, which primarily holds a are procedural.

As described below it is recommended that a certain API is implemented (SEE: holidays and is_holiday below), but taking the adapter strategy into consideration this does not matter, or we attempt to do what we can with what is available on CPAN.

If you are an module author/CPAN contributor who wants to comply to the suggested, either look at some of the other modules in the Date::Holidays::* namespace to get an idea of the de facto standard or have a look at Date::Holidays::Abstract and Date::Holidays::Super - or write me.

In addition to the adapter feature, Date::Holidays also do aggregation, so you can combine calendars and you can overwrite and redefined existing calendars.

DEFINING YOUR OWN CALENDAR

As mentioned in the FEATURES section it is possible to create your own local calendar.

This can be done using a JSON file with your local definitions:

{
    "1501" : "jonasbn's birthday"
}

This also mean you can overwrite your national calendar:

{
    "1225" : ""
}

You can specify either month plus day for a recurring holiday. If you you want to define a holiday for a specific year, simply extend the date with year:

{
    "201.1625" : ""
}

In order for the calendar to be picked up by Date::Holidays, set the environment variable:

$HOLIDAYS_FILE

This should point to the JSON file.

SUBROUTINES/METHODS

new

This is the constructor. It takes the following parameters:

The constructor loads the module from Date::Holidays::*, which matches the country code and returns a Date::Holidays module with the specified module loaded and ready to answer to any of the following methods described below, if these are implemented - of course.

If no countrycode is provided or the class is not able to load a module, nothing is returned.

my $dh = Date::Holidays->new(countrycode => 'dk')
    or die "No holidays this year, get back to work!\n";

holidays

This is a wrapper around the loaded module’s holidays method if this is implemented. If this method is not implemented it tries <countrycode>_holidays.

Takes 3 optional named arguments:

holidays_dt

This method is similar to holidays. It takes one named argument b<year>.

The result is a hashref just as for holidays, but instead the names of the holidays are used as keys and the values are DateTime objects.

is_holiday

This is yet another wrapper around the loaded module’s is_holiday method if this is implemented. Also if this method is not implemented it tries is_<countrycode>_holiday.

Takes 6 optional named arguments:

is_holiday returns the name of a holiday is present in the country specified by the country code provided to the Date::Holidays constructor.

$name = $dh->is_holiday(year => 2007, day => 24, month => 12);

If this method is called using the class name Date::Holidays, all known countries are tested for a holiday on the specified date, unless the countries parameter specifies a subset of countries to test.

$hashref = Date::Holidays->is_holiday(year => 2007, day => 24, month => 12);

In the case where a set of countries are tested the return value from the method is a hashref with the country codes as keys and the values as the result.

is_holiday_dt

This method is similar to is_holiday, but instead of 3 separate arguments it only takes a single argument, a DateTime object.

Return 1 for true if the object is a holiday and 0 for false if not.

DEVELOPING A DATE::HOLIDAYS::* MODULE

There is no control of the Date::Holidays::* namespace at all, so I am by no means an authority, but this is recommendations on order to make the modules in the Date::Holidays more uniform and thereby more usable.

If you want to participate in the effort to make the Date::Holidays::* namespace even more usable, feel free to do so, your feedback and suggestions will be more than welcome.

If you want to add your country to the Date::Holidays::* namespace, please feel free to do so. If a module for you country is already present, I am sure the author would not mind patches, suggestions or even help.

If however you country does not seem to be represented in the namespace, you are more than welcome to become the author of the module in question.

Please note that the country code is expected to be a two letter code based on ISO3166 (or Locale::Country).

As an experiment I have added two modules to the namespace, Date::Holidays::Abstract and Date::Holidays::Super, abstract is attempt to make sure that the module implements some, by me, expected methods.

So by using abstract your module will not work until it follows the the abstract laid out for a Date::Holidays::* module. Unfortunately the module will only check for the presence of the methods not their prototypes.

Date::Holidays::Super is for the lazy programmer, it implements the necessary methods as stubs and there for do not have to implement anything, but your module will not return anything of value. So the methods need to be overwritten in order to comply with the expected output of a Date::Holidays::* method.

The methods which are currently interesting in a Date::Holidays::* module are:

Only is_holiday and holidays are implemented in Date::Holidays::Super and are required by Date::Holidays::Abstract.

ADDITIONAL PARAMETERS

Some countries are divided into regions or similar and might require additional parameters in order to give more exact holiday data.

This is handled by adding additional parameters to is_holiday and holidays.

These parameters are left to the module authors discretion and the actual Date::Holidays::* module should be consulted.

Example Date::Holidays::AU

use Date::Holidays::AU qw( is_holiday );

my ($year, $month, $day) = (localtime)[ 5, 4, 3 ];
$year  += 1900;
$month += 1;

my ($state) = 'VIC';
print "Excellent\n" if is_holiday( $year, $month, $day, $state );

DEVELOPING A DATE::HOLIDAYS::ADAPTER CLASS

If you want to contribute with an adapter, please refer to the documentation in Date::Holidays::Adapter.

DEVELOPING ON DATE::HOLIDAYS

Date::Holidays is distributed and maintained using Dist::Zilla

RUNNING THE TEST SUITE

The test suite can be executed using

$ dzil test

The test suite, which attempts lots scenarios does emit a lot of warnings, so it is recommended to suppress STDERR by redirecting it to /dev/null

$ dzil test 2> /dev/null

To enable author tests aimed at asserting distribution and code quality in addition to functionality, use the --author flag

$ dzil test --author 2> /dev/null

If you are working on a release, use the --release flag

$ dzil test --release 2> /dev/null

The release flag is implicit for the Dist::Zilla release command.

DIAGNOSTICS

CONFIGURATION AND ENVIRONMENT

As mentioned in the section on defining your own calendar. You have to set the environment variable:

$HOLIDAYS_FILE

This environment variable should point to a JSON file containing holiday definitions to be used by Date::Holidays::Adapter::Local.

DEPENDENCIES

FOR TESTING

Please see the cpanfile included in the distribution for a complete listing.

INCOMPATIBILITIES

Currently the following CPAN Date::Holidays distributions are unsupported:

Additional issues might be described the specific adapter classes or their respective adaptees.

BUGS AND LIMITATIONS

Currently we have an exception for the Date::Holidays::AU module, so the additional parameter of state is defaulting to ‘VIC’, please refer to the POD for Date::Holidays::AU for documentation on this.

Date::Holidays::DE and Date::Holidays::UK does not implement the holidays methods

The adaptee module for Date::Holidays::Adapter::JP is named: Date::Japanese::Holiday, but the adapter class is following the general adapter naming of Date::Holidays::Adapter::<countrycode>.

The adapter for Date::Holidays::PT, Date::Holidays::Adapter::PT does not implement the is_pt_holiday method. The pattern used is an object adapter pattern and inheritance is therefor not used, it is my hope that I can make this work with some Perl magic.

ISSUE REPORTING

Please report any bugs or feature requests using GitHub.

TEST COVERAGE

Coverage reports are available via Coveralls.io

Coverage Status

Without the actual holiday implementations installed/available coverage will be very low.

Please see Task::Date::Holidays, which is a distribution, which can help in installing all the wrapped (adapted and aggregated) distributions.

SEE ALSO

ACKNOWLEDGEMENTS

AUTHOR

Jonas B., (jonasbn) - <jonasbn@cpan.org>

LICENSE AND COPYRIGHT

Date-Holidays and related modules are (C) by Jonas B., (jonasbn) 2004-2024

Date-Holidays and related modules are released under the Artistic License 2.0

Image used on website is under copyright by Tim Mossholder