| Date-Holidays documentation | Contained in the Date-Holidays distribution. |
Date::Holidays::Adapter::PT - an adapter class for Date::Holidays::PT
This POD describes version 0.01 of Date::Holidays::Adapter::PT
The is the adapter class for Date::Holidays::PT.
The constructor, takes a single named argument, countrycode
The holidays method, takes 3 named arguments, year, month and day
Returns an indication of whether the day is a holiday in the calendar of the country referenced by countrycode in the call to the constructor new.
The holidays method, takes a single named argument, year
Returns a reference to a hash holding the calendar of the country referenced by countrycode in the call to the constructor new.
The calendar will spand for a year and the keys consist of month and day concatenated.
This exception is thrown when Date::Holidays::Adapter attempts to load an actual adapter implementation. This exception is recoverable to the extend that is caught and handled internally.
When caught the SUPER adapter is attempted loaded, Date::Holidays::Adapter if this however fails Date::Holidays::Exception::SuperAdapterLoad it thrown see below.
This exception is thrown when in was not possible to load either a implementation of a given adapter, or the SUPER adapter Date::Holidays::Adapter.
The exception is thrown if a country code is provided, which is not listed in Locale::Country, which lists ISO 3166 codes, which is the unique 2 character strings assigned to each country in the world.
Exception thrown in the case where the loaded and initialized module does not support the called method. (SEE: METHODS/SUBROUTINES).
Please refer to INCOMPATIBILITIES in Date::Holidays
The adapter 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.
Please report issues via CPAN RT:
http://rt.cpan.org/NoAuth/Bugs.html?Dist=Date-Holidays
or by sending mail to
bug-Date-Holidays@rt.cpan.org
Jonas B. Nielsen, (jonasbn) - <jonasbn@cpan.org>
Date::Holidays and related modules are (C) by Jonas B. Nielsen, (jonasbn) 2004-2007
Date::Holidays and related modules are released under the artistic license
The distribution is licensed under the Artistic License, as specified by the Artistic file in the standard perl distribution (http://www.perl.com/language/misc/Artistic.html).
| Date-Holidays documentation | Contained in the Date-Holidays distribution. |
package Date::Holidays::Adapter::PT; # $Id: PT.pm 1742 2007-02-22 19:47:55Z jonasbn $ use strict; use warnings; use base 'Date::Holidays::Adapter'; use vars qw($VERSION); $VERSION = '0.01'; sub holidays { my ($self, %params) = @_; my $dh = $self->{_adaptee}->new(); if ($dh) { return $dh->holidays($params{'year'}); } else { return; } } sub is_holiday { my ($self, %params) = @_; my $dh = $self->{_adaptee}->new(); if ($dh) { return $dh->is_holiday($params{'year'}, $params{'month'}, $params{'day'}); } else { return; } } 1; __END__