Time::Piece::Range - deal with a range of Time::Piece objects
use Time::Piece::Range;
my $range = Time::Piece::Range->new($t1, $d2);
my $earliest = $range->start;
my $latest = $range->end;
my $days = $range->length;
if ($range->includes($d3)) { ... }
if ($range->includes($range2)) { ... }
if ($range->overlaps($range2)) {
my $range3 = $range->overlap($range2);
}
foreach my $date ($range->dates) { ... }
my $range3 = $range->gap($range2);
if ($range->abuts($range2)) { ... }
This is a subclass of Date::Range that uses Time::Piece objects rather than
Date::Simple objects.
It only works at the precision of complete days - times are
ignored in all calculations.
Please direct all correspondence regarding this module to:
bug-Time-Piece-Range@rt.cpan.org
Copyright (C) 2003-2005 Tony Bowden.
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.