Test::MockTime::HiRes - Replaces actual time with simulated high resolution time
use Test::MockTime::HiRes qw(mock_time);
my $now = time;
mock_time {
time; # == $now;
sleep 3; # returns immediately
time; # == $now + 3;
usleep $microsecond;
} $now;
Test::MockTime::HiRes is a Time::HiRes compatible version of
Test::MockTime. You can wait milliseconds in simulated time.
It also provides mock_time to restrict the effect of the simulation
in a code block.
Copyright (C) INA Lintaro
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
INA Lintaro tarao.gnn@gmail.com