DateTime-Event-NameDay
view release on metacpan or search on metacpan
lib/DateTime/Event/NameDay.pm view on Meta::CPAN
croak "Unable to determine the correct country"
unless defined $country;
}
# Get the namedays for the given date
# - Find our section
my $nameday_info =
$self->_init_nameday_country(namedays => \%namedays,
country => $country);
# - Convert to the Julian calendar
my $adj_dt = DateTime::Calendar::Christian->from_object
(object => $p{date},
reform_date => $nameday_info->{reform_date},
%{ $self->date_args() },
);
# - Get the appropriate nameday based on month number and day
my $names = $nameday_info->{names}{ $adj_dt->month() }{ $adj_dt->day() };
my @names = defined $names ? @$names : ();
lib/DateTime/Event/NameDay.pm view on Meta::CPAN
important than their birthday and gifts may be exchanged.
There are two major functions of the class, the first takes a
C<DateTime> object (of any kind) and works out the names that are
associated with that day. The second takes a given name and returns a
C<DateTime::Set> object that can be used to work out what dates are
for the given name.
Please note that the calculations are done using the
C<DateTime::Calendar::Christian> module to deal with dates that fall
before the calendar reforms.
=head1 USAGE
TODO
=head1 AUTHOR
Ben Bennett <fiji at limey dot net>
=head1 COPYRIGHT
lib/DateTime/Event/NameDay/slovakia.pm view on Meta::CPAN
sub nameday_data {
# This site http://privatewww.essex.ac.uk/~kent/calisto/guide/changes.htm
# has the reform dates as: 7-16 Jan 1584, 23 Jan-1 Feb 1584, 22-31 Oct 1587
# we are going with 7-16 Jan 1584 since that is the same as the Czech and Austrian
# dates and Slovakia was part of the Austrian empire at the time
return(DateTime->new( year => 1754, month => 1, day => 16),
<<"EOF;");
# From: http://www.sl.sinet.sk/vtipy/mes01.htm
# http://www.slovensko.com/slovakia.faq/edre/1
# http://www.slovakian.info/cgi-bin/calendar.pl
# Country: Slovakia
# ReformDate: 1753/02/28
1: # January
1 *Nový rok, *De? vzniku SR # New Year's day, Independence day (1993)
2 Alexandra
3 Daniela
4 Drahoslav
5 Andrea
6 Antónia, *Zjavenie Pána, *Traja Králi # Epiphany
( run in 0.325 second using v1.01-cache-2.11-cpan-5dc5da66d9d )