view release on metacpan or  search on metacpan

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

12.16.Etelka,Aletta
12.17.Lázár,Olimpia
12.18.Auguszta
12.19.Viola
12.20.Teofil
12.21.Tamás
12.22.Zénó
12.23.Viktória
12.24.Ádám,Éva
12.25.Karácsony,Eugénia
12.26.Karácsony,István
12.27.János
12.28.Kamilla
12.29.Tamás,Tamara
12.30.Dávid
12.31.Szilveszter
__THIS__
}

##################################################################
# We used to have this, but now I commented it out. It was insane
# anyways! See the POD for more info.
##################################################################
#sub leapYear {
#	my ($self, $month, $day) = @_;
#
#	if ($day == 24) {
#		return ($month,29);		# "leap year day"
#        } elsif ($day > 24) {
#                return ($month,$day-1);
#        }
#
#	return ($month, $day);		# do not change otherwise	
#}

########################################### main pod documentation begin ##

=head1 NAME

Date::Namedays::Simple::Hungarian - Simple nameday handling class for Hungarian namedays.

=head1 SYNOPSIS

For usage, please see: Date::Namedays::Simple !!

=head1 DESCRIPTION

This is a subclass of Date::Namedays::Simple. This module only provides 
a list of Hungarian namedays. See Date::Namedays::Simple for usage and
examples!

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,
please! Comments are also welcome!

=head1 AUTHOR

	Csongor Fagyal
	co-NOSPAM-ncept@conceptonline.hu
	http://www.conceptonline.com/

=head1 COPYRIGHT

This program is free software; you can redistribute
it and/or modify it under the same terms as Perl itself.

The full text of the license can be found in the
LICENSE file included with this module.


=head1 SEE ALSO

perl(1).

=cut


1;
__END__