view release on metacpan or  search on metacpan

lib/Date/Namedays/Simple.pm  view on Meta::CPAN

###########################################################
# Input: month, day, [year]
# A list of names is returned.
# Year is optional, but if you do not provide it, leap
# years are not taken into consideration!
###########################################################
sub getNames {
        my ($self, $month, $day, $year) = @_;

	# some calendars handle leap-years in a special way... like
	# the Hungarian, which is totally insane
	my $leapyearmonth = 0;
	my $leapyearmonth = 1 if ($year && (not ($year % 4) ) && ($month == 2));	
	# note: this is a VERY lame leap-year calculation here...
	
	if ($leapyearmonth) {
		($month, $day) = $self->leapYear($month, $day)
	}
	
        my $namedays = $self->_getNameDays;

lib/Date/Namedays/Simple/Hungarian.pm  view on Meta::CPAN

Please see the "BUGS" section also!


=head1 USAGE

See: Date::Namedays::Simple.

=head1 BUGS

According to some calendars, in case of leapyears, 24th of February becomes 
"LeapYear" ("Szökõnap" in Hungarian), while other names shift. Some other
calendars denote the 29th of February the as "LeapYear", and to not shift.

The first implementation shifted the namedays - then I though this is 
totally insane, so now I have that commented out, and use the second 
approach.

Send bugreports!

=head1 SUPPORT

Send an e-mail to the author. Only concerning this particular module,