NAME

Time::Piece::Month - a month of Time::Piece objects

SYNOPSIS

  use Time::Piece::Month;

	my $month = Time::Piece::Month->new(Time::Piece $tp);
	my $month = Time::Piece::Month->new("2002-01-03");

	my Time::Piece::Month $prev = $month->prev_month;
	my Time::Piece::Month $next = $month->next_month;

	my @dates = $month->dates;
	my @dates = $month->wraparound_dates;

DESCRIPTION

This is an extension to Time::Piece::Range that represents a complete calendar month.

CONSTRUCTOR

new

my $month = Time::Piece::Month->new(Time::Piece $tp);

my $month = Time::Piece::Month->new("2002-01-03");

A Month object can be instantiated from either a Time::Piece object, or a Y-m-d format string.

METHODS

As well as the inherited Time::Piece::Range methods, we also include:

prev_month / next_month

my Time::Piece::Month $prev = $month->prev_month;
my Time::Piece::Month $next = $month->next_month;

The next and previous months.

wraparound_dates

This returns a list of Time::Piece objects representing each day in the month, but also including the days on either side that ensure that the full list runs from a Sunday to a Saturday. This is useful for displaying calendars.

AUTHOR

Tony Bowden

BUGS and QUERIES

Please direct all correspondence regarding this module to: bug-Business-Barcode-EAN13@rt.cpan.org

COPYRIGHT AND LICENSE

Copyright (C) 2002-2005 Kasei

This program is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License; either version 2 of the License,
or (at your option) any later version.

This program is distributed in the hope that it will be useful, but WITHOUT
ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
FOR A PARTICULAR PURPOSE.