/ 
Myco-1.22
River stage one • 2 direct dependents • 2 total dependents
/ Myco::Util::DateTime

NAME

Myco::Util::DateTime - a Myco utility class

SYNOPSIS

use Myco::Util::DateTime;

# No constructor is offered here - just use the class methods offered,
# but if this helps you...

my $datetime = 'Myco::Util::DateTime';

print "April Fools!" if $datetime->date('YYYY-MM-DD') eq '2006-04-01';

# Lot's of other neat methods - see below.

DESCRIPTION

A simple shell to store oft-used Date-munging routines.

CLASS METHODS

date

$datetime->date('YYYY-MM-DD');

Get the current date, in several formats: YYYY-MM-DD, YY-MM-DD, MM-DD-YYYY, MM-DD-YY.

year

my $year = $datetime->year;

Get the current year.

month

my $month = $datetime->month;

Get the current Month.

day

my $day = $datetime->day;

Get the current day of the month.

date_add

$datetime->date_add($offset, $date1);

Adds an integer (positive or negative) offset to a given date. If no date is given, then the current date is used.

date_range

my @range = $datetime->date_range('2002-06-01', '2003-06-01');
  or
my @range = $datetime->date_range(-365, '2003-06-01');
  or
my @range = $datetime->date_range(-365);

Returns the range of dates between two given dates (including both). Alternatively, adds an integer (positive or negative) offset to a given date and returns an array of dates for each intervening day. Starts with the most recent, and descends or ascends from there. If no date is given, the current date is used.

american

my @american_dates = $datetime->american( @dates );
my $isa_american_date = $american_dates[0] eq 'June 16th, 2003';

Translates ISO-format dates into an American-style dates.