NAME

Time::Sequence

simple time sequence base on Date::Calc

FUNCTION

get_time

my $lastday_this_hour = get_time(
    undef,
    format => "%04d-%02d-%02d %02d",
    delta  => { day => -1 },
);
print $lastday_this_hour, "\n";
#2014-06-10 14

my $time_10min_before = get_time(
    "2014-06-10 22:22:22",
    delta => {
        year   => 0,
        month  => 0,
        day    => 0,
        hour   => 0,
        minute => -10,
        second => 0,
    },
);
# 2014-06-10 22:12:22

seq_times

my $seq = seq_times(
    "2014-06-11 07:15:22", "2014-06-11 12:00:00",
    delta    => { minute => 30 },
    format   => "%04d-%02d-%02d %02d:%02d",
    trim_end => 0,
);
print "$_\n" for @$seq;
#2014-06-11 07:15
#2014-06-11 07:45
#2014-06-11 08:15
#2014-06-11 08:45
#2014-06-11 09:15
#2014-06-11 09:45
#2014-06-11 10:15
#2014-06-11 10:45
#2014-06-11 11:15
#2014-06-11 11:45
#2014-06-11 12:00

cut_time

my $c = cut_time( "2014-06-11 09:33", $seq );
print $c, "\n";
#2014-06-11 09:15