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.
Tony Bowden
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.
To install Time::Piece::Range, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Time::Piece::Range
CPAN shell
perl -MCPAN -e shell install Time::Piece::Range
For more information on module installation, please visit the detailed CPAN module installation guide.