Date::Holidays::PT 0.02

Date::Holidays::PT - Determine Portuguese public holidays<br /><br />SYNOPSIS<br /><br /> use Date::Holidays::PT;<br /> my ($year, $month, $day) = (localtime)[ 5, 4, 3 ];<br /> $year += 1900;<br /> $month += 1;<br /> print "Woohoo" if is_pt_holiday( $year, $month, $day );<br /><br /> my $h = pt_holidays($year);<br /> printf "Jan. 1st is named '%s'<br />", $h->{'0101'};<br /><br />FUNCTIONS<br /><br />new<br /><br />Creates a new Date::Holidays::PT object.<br /><br /> my $mh = Date::Holidays::PT->new();<br /><br />is_holiday<br /><br />Should at least take three arguments:<br /><br />year (four digits) month (between 1-12) day (between 1-31)<br /><br />The return value from is_holiday is either a 1 or a 0 (1 if the specified date is a holiday, 0 otherwise).<br /><br /> if ( $mh->is_holiday( $year, $month, $day ) ) {<br /> # it's a holiday<br /> }<br /><br />is_pt_holiday<br /><br />Similar to is_holiday, but instead of returning 1 if the date is a holiday returns a string comprising the name of the holidays. In the event of two or more holidays on the same day (hey, it happens), the string will comprise the name of all those holidays separated by a semicolon.<br /><br /> my $todays_holiday = $mh->is_pt_holiday( $year, $month, $day );<br /> if ( $todays_holiday ) {<br /> print "Today is $todays_holiday.<br />Don't bother getting up!<br />";<br /> }<br /><br />holidays<br /><br />Should take at least one argument:<br /><br />year (four digits)<br /><br />Returns a reference to a hash, where the keys are date represented as four digits, the two first representing month (01-12) and the last two representing day (01-31).<br /><br />The value for the key in question is the local name for the holiday indicated by the day. In the event of two or more holidays on the same day (yes, it happens!), the values will comprise the name of all those holidays separated by a semicolon.<br /><br /> my $years_holidays = holidays( $year );<br /> for (keys %$years_holidays) {<br /> my ($day, $month) = /(..)(..)/;<br /> print "$day/$month - $years_holidays->$_<br />";<br /> }<br />

Requirements:	No special requirements
Platforms:	*nix, Linux
Keyword:	Comprise,  Dateholidayspt,  Digits,  Event,  Holiday,  Holidays,  Month,  Print,  Representing,  Semicolon,  Separated,  String,  Todays Holiday,  Years Holidays
Users rating:	0/10