NAME
Date::Holidays::RU - Determine Russian Federation official holidays and business days.
SYNOPSIS
use Date::Holidays::RU qw( is_holiday holidays is_business_day );
binmode STDOUT, ':encoding(UTF-8)';
my ( $year, $month, $day ) = ( localtime )[ 5, 4, 3 ];
$year += 1900;
$month += 1;
if ( my $holidayname = is_holiday( $year, $month, $day ) ) {
print "Today is a holiday: $holidayname\n";
}
my $ref = holidays( $year );
while ( my ( $md, $name ) = each %$ref ) {
print "On $md there is a holiday named $name\n";
}
if ( is_business_day( 2012, 03, 11 ) ) {
print "2012-03-11 is business day on weekend\n";
}
is_holiday( $year, $month, $day )
Determine whether this date is a RU holiday. Returns holiday name or undef.
is_ru_holiday( $year, $month, $day )
Alias for is_holiday().
holidays( $year )
Returns hash ref of all RU holidays in the year.
is_business_day( $year, $month, $day )
Returns true if date is a business day in RU taking holidays and weekends into account.
AUTHOR
Alexander Nalobin, <alexander at nalobin.ru>