RHP::Timer - A high resolution timer abstraction
use RHP::Timer (); use My::Logger (); $logger = My::Logger->new; $timer = RHP::Timer->new(); # timing data from the point of the caller $timer->start('fizzbin'); fizzbin(); # how fast is fizzbin? $logger->info( sprintf("Timing caller: %s %s %d, timer_name: %s, time: %s", @{$timer->checkpoint})); # or simpler $timer->start('foobin'); foobin(); $logger->info("pid $$ timer " . $timer->current . " took " . $timer->stop . " seconds"); # what was the last timing block? $logger->info("Last timing block " . $timer->current . " took " . $timer->last_interval . " seconds");
RHP::Timer is a wrapper around Time::HiRes. I wrote it because I needed some simple abstractions for timing programs to determine bottlenecks in running programs.
The goals of RHP::Timer is to be easy to use, accurate, and simple.
$timer = RHP::Timer->new();
Constructor which takes no arguments and returns a timer object
$timer->start('fizzbin');
Starts the timer for 'fizzbin'
$interval = $timer->stop;
Stops the last timer started, and returns the number of seconds between start and stop.
$timer_name = $timer->current(); # $timer_name is 'fizzbin' from previous pod
Returns the name of the most recent timer started.
[ caller(), $timer_name, $interval ] = $timer->checkpoint();
Stops the current timer and returns an array reference containing caller() information, the name of the timer stopped, and the interval of the last timing run. Useful for passing to a logfile in sprintf or other format.
$last_interval = $timer->last_interval;
Returns the last timing interval recorded by the timer object.
None known yet. If you find any, or want a feature, email the author.
Time::HiRes(3)
Fred Moyer <fred@redhotpenguin.com>
Copyright 2007 Red Hot Penguin Consulting LLC
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.6 or, at your option, any later version of Perl 5 you may have available.
To install RHP::Timer, copy and paste the appropriate command in to your terminal.
cpanm
cpanm RHP::Timer
CPAN shell
perl -MCPAN -e shell install RHP::Timer
For more information on module installation, please visit the detailed CPAN module installation guide.