NAME

Date::Horoscope - Date operations based on the horoscope calendar

SYNOPSIS

#!/usr/bin/perl

use Date::Horoscope; use Date::Manip;

$date='1969-05-11'; $x='date'; warn &UnixDate($$x, '%f');

print $Date::Horoscope::horoscope{Date::Horoscope::locate('1969-05-11')}->{position}, $/;

DESCRIPTION

This module was written to help with the zodiac processing for a site I was contracting at. It returns either an all-lowercase zodiac based on a given date. You can take this string and use it as a key to %horoscope to get a position in the zodiac cycle.

API

locate

Provide any date parseable by Date::Manip and it turns an all-lowercase zodiac name.

%horoscope

This hash contains the position, and start and end dates for a zodiac sign. The zodiac starts with Aries as far as I know. Some idiot didn't think taurus was number 1.

AUTHOR

A. U. Thor, a.u.thor@a.galaxy.far.far.away

SEE ALSO

perl(1).