NAME
Time::Mock - shift and scale time
SYNOPSIS
Speed up your sleep(), alarm(), and time() calls.
use Time::Mock throttle => 100;
use Your::Code;ABOUT
Test::MockTime is nice, but doesn't allow you to accelerate the timestep and doesn't deal with Time::HiRes or give you any way to change the time across forks.
TODO: replace Time::HiRes functions with wrappers
TODO: finish the interfaces to real time/sleep/alarm
Replaces
These core functions are replaced.
Eventually, much of the same bits from Time::HiRes will be correspondingly overwritten.
- time
- localtime
- gmtime
- sleep
-
Sleeps for 1/$throttle.
- alarm
-
Alarm happens in 1/$throttle.
Class Methods
These are the knobs on your time machine, but note that it is probably best to adjust them only once: see caveats
throttle
Get or set the throttle.
Time::Mock->throttle(10_000);offset
Get or set the offset.
Time::Mock->offset(120);Caveats
This package remembers the actual system time when it was loaded and makes adjustments from there. Future versions might change this behavior if I can think of a good reason and scheme for that.
The throttle value will hold across forks, but there is no support for propagating changes to child processes. So, set it before you fork!
Messing with the throttle during runtime could also give your code the illusion of time going backwards. If the code calls time() before and after a slow-down, there could be trouble.
Changing the throttle while an alarm() is set won't change the original alarm time. There would be a similar caveat about sleep() if I hadn't already mentioned forks ;-)
Don't ask about threads unless you're asking about me applying your patch thanks.
AUTHOR
Eric Wilhelm @ <ewilhelm at cpan dot org>
http://scratchcomputing.com/
BUGS
If you found this module on CPAN, please report any bugs or feature requests through the web interface at http://rt.cpan.org. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.
If you pulled this development version from my /svn/, please contact me directly.
COPYRIGHT
Copyright (C) 2008 Eric L. Wilhelm, All Rights Reserved.
NO WARRANTY
Absolutely, positively NO WARRANTY, neither express or implied, is offered with this software. You use this software at your own risk. In case of loss, no person or entity owes you anything whatsoever. You have been warned.
LICENSE
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.