File Coverage

blib/lib/Date/Holidays/UK/EnglandAndWales.pm

Criterion	Covered	Total	%
statement	13	17	76.4
branch	7	20	35.0
condition	1	3	33.3
subroutine	3	4	75.0
pod	1	1	100.0
total	25	45	55.5

package Date::Holidays::UK::EnglandAndWales;
use strict;
use warnings;

our $VERSION = '0.03'; # Updated dates

require Exporter;
require Tie::Hash ;

our @ISA	= qw( Exporter Tie::StdHash );
our @EXPORT = qw( is_uk_holiday );

=head1 NAME

Date::Holidays::UK::EnglandAndWales - Public Holidays in England and Wales

=head1 SYNOPSIS

  use Date::Holidays::UK::EnglandAndWales;
  my ($year, $month, $day) = (localtime)[ 5, 4, 3 ];
  $year  += 1900;
  $month += 1;
  warn "Holiday" if is_uk_holiday( $year, $month, $day );
  warn "Holiday" if Date::Holidays::UK::EnglandAndWales->is_holiday( $year, $month, $day );

=head1 DESCRIPTION

These bank and public holidays are holidays in England and Wales,
and not necessarily for Scotland and Northern Ireland.

=head2 MODULE HISTORY

This module is based on L
by Richard Clamp, Amelie Guyot, Jerome Parfant, which did not contain
the dates needed by my clients.

As Msrs Clamp et al note in the L,
Naming modules is a tricky thing: I've named this C because
the C module cannot include holidays for Northern Ireland and Scotland,
and maintain its API, since the dates vary across the UK for events of the same name.

=head2 USE

=head3 is_uk_holiday( $year, $month, $day )

=head3 is_holiday( $year, $month, $day );

=head3 Date::Holidays::UK::EnglandAndWales->is_holiday( $year, $month, $day )

May be called as class method or subroutine.
Returns the name of the Holiday that falls on the given day, or undef
if there is none.

Year must be four-digit. Strips any leading zeros from month and day.

Can be included or imported to a class as an object method, since the first
argument supplied is discarded if an reference.

=head2 EXPORTS

C is exported by default, but this is deprecated and will
be removed in a future version.

=cut

our (%holidays, %_holidays);

$_holidays{ 2005,  1,  3 } =
$_holidays{ 2006,  1,  2 } =
$_holidays{ 2011,  1,  3 } =
$_holidays{ 2012,  1,  2 } =
	"Substitute Bank Holiday in lieu of 1 Jan";

$_holidays{ 2004,  4,  9 } =
$_holidays{ 2005,  3, 25 } =
$_holidays{ 2006,  4, 14 } =
$_holidays{ 2007,  4,  6 } =
$_holidays{ 2008,  3, 21 } =
$_holidays{ 2009,  4, 10 } =
$_holidays{ 2010,  4,  2 } =
$_holidays{ 2011,  4, 22 } =
$_holidays{ 2012,  4,  6 } =
$_holidays{ 2013,  3, 29 } =
$_holidays{ 2014,  4, 15 } =
	"Good Friday";

$_holidays{ 2004,  4, 12 } =
$_holidays{ 2005,  3, 28 } =
$_holidays{ 2006,  4, 17 } =
$_holidays{ 2007,  4,  9 } =
$_holidays{ 2008,  3, 24 } =
$_holidays{ 2009,  4, 13 } =
$_holidays{ 2010,  4,  5 } =
$_holidays{ 2011,  4, 25 } =
$_holidays{ 2012,  4,  9 } =
$_holidays{ 2013,  4,  1 } =
$_holidays{ 2014,  4, 21 } =
	"Easter Monday";

$_holidays{ 2004,  5,  3 } =
$_holidays{ 2005,  5,  2 } =
$_holidays{ 2006,  5,  1 } =
$_holidays{ 2007,  5,  7 } =
$_holidays{ 2008,  5,  5 } =
$_holidays{ 2009,  5,  4 } =
$_holidays{ 2010,  5,  3 } =
$_holidays{ 2011,  5,  2 } =
$_holidays{ 2012,  5,  7 } =
$_holidays{ 2013,  5,  6 } =
$_holidays{ 2014,  5,  5 } =
	"Early May Bank Holiday";

$_holidays{ 2004,  5, 31 } =
$_holidays{ 2005,  5, 30 } =
$_holidays{ 2006,  5, 29 } =
$_holidays{ 2007,  5, 28 } =
$_holidays{ 2008,  5, 26 } =
$_holidays{ 2009,  5, 25 } =
$_holidays{ 2010,  5, 31 } =
$_holidays{ 2011,  5, 30 } =
$_holidays{ 2012,  5, 28 } =
$_holidays{ 2013,  5, 27 } =
$_holidays{ 2014,  5, 26 } =
	"Spring Bank Holiday";

$_holidays{ 2004,  8, 30 } =
$_holidays{ 2005,  8, 29 } =
$_holidays{ 2006,  8, 28 } =
$_holidays{ 2007,  8, 27 } =
$_holidays{ 2008,  8, 25 } =
$_holidays{ 2009,  8, 31 } =
$_holidays{ 2010,  8, 30 } =
$_holidays{ 2011,  8, 29 } =
$_holidays{ 2012,  8, 27 } =
$_holidays{ 2013,  8, 26 } =
$_holidays{ 2014,  8, 25 } =
	"Summer Bank Holiday";

$_holidays{ 2004, 12, 28 } =
$_holidays{ 2005, 12, 27 } =
$_holidays{ 2010, 12, 27 } =
$_holidays{ 2011, 12, 27 } =
	"Substitute Bank Holiday in lieu of 25 Dec";

$_holidays{ 2004, 12, 27 } =
$_holidays{ 2009, 12, 28 } =
$_holidays{ 2010, 12, 28 } = "Substitute Bank Holiday in lieu of 26 Dec";


tie %holidays, 'Date::Holidays::UK::EnglandAndWales';

sub is_uk_holiday {
    shift if $_[0] eq __PACKAGE__ or ref $_[0];

    my ($year, $month, $day) = $#_ > 0 ? @_ : split/\D+/,$_[0],3;
    $month =~ s/^0// if $month;
    $day   =~ s/^0// if $day;

    return $_holidays{ $year, $month, $day }
    	if exists $_holidays{ $year, $month, $day };

	if ($month == 12){
		return 'Christmas Day'		if $day == 25;
		return 'Boxing Day'			if $day == 26;
	}
	if ($month == 1){
		return 'New Year\'s Day'	if $day == 1;
	}
}

# alias
*is_holiday = *is_uk_holiday;

# tie API forwards to legacy API
sub FETCH {
	return is_uk_holiday( @_ );
}

1;

__END__