NAME Test::Recent - check a time is recent SYNOPSIS use Test::More; use Test::Recent qw(recent); # check things happened in the last ten seconds recent DateTime->now, "now is recent!"; recent "2012-12-23 00:00:00", "end of mayan calendar happened recently?"; recent "5 seconds ago", "5 seconds ago is obviously recently"; # check things happened in the last hour recent "2012-12-23 00:00:00", DateTime::Duration->new( hours => 1 ), "mayan"; recent "2012-12-23 00:00:00", "1 hour", "mayan" DESCRIPTION Simple module to check things happened recently. Uses DateTime::Format::ISO8601 and Time::Duration::Parse to parse the times and durations (older versions of this module used DateTimeX::Easy because that module didn't handle iso timezones very well.) Functions These are exported on demand or may be called fully qualified recent $time recent $time, $test_description recent $time, $duration, $test_description Tests (using the Test::Builder framework) if the time occured within the duration ago from the current time. If no duration is passed, ten seconds is assumed. occured_within_ago $time, $duration Returns true if and only if the time occured within the duration ago from the current time. AUTHOR Written by Mark Fowler <mark@twoshortplanks.com> COPYRIGHT Copyright OmniTI 2012. All Rights Rerserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. BUGS Bugs should be reported via this distribution's CPAN RT queue. This can be found at <https://rt.cpan.org/Dist/Display.html?Test-Recent> You can also address issues by forking this distribution on github and sending pull requests. It can be found at <http://github.com/2shortplanks/Test-Recent> SEE ALSO DateTime::Format::ISO8601, Time::Duration::Parse