File Coverage

blib/lib/Date/Holidays/GB/SCT.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch	2	4	50.0
condition			n/a
subroutine	6	6	100.0
pod	0	2	0.0
total	24	28	85.7

package Date::Holidays::GB::SCT;

our $VERSION = '0.023'; # VERSION

use strict;
use warnings;

use Date::Holidays::GB;

use base qw( Exporter );
our @EXPORT_OK = qw(
  holidays
  is_holiday
);

sub holidays {
    my %args
        = $_[0] =~ m/\D/
        ? @_
        : ( year => $_[0] );

    return Date::Holidays::GB::holidays( %args, regions => [ 'SCT' ] );
}

sub is_holiday {
    my %args
        = $_[0] =~ m/\D/
        ? @_
        : ( year => $_[0], month => $_[1], day => $_[2] );

    return Date::Holidays::GB::is_holiday( %args, regions => [ 'SCT' ] );
}

1;

__END__

=head1 NAME

Date::Holidays::GB::SCT - Date::Holidays class for GB-SCT (Scotland)

=head1 SYNOPSIS

    use Date::Holidays::GB::SCT qw( holidays is_holiday );

    # All holidays for Scotland
    my $holidays = holidays( year => 2013 );

    if ( is_holiday( year => 2013, month => 12, day => 25 ) ) {
        print "No work today!";
    }

=cut