Xacobeo::Timer(3pm) User Contributed Perl Documentation Xacobeo::Timer(3pm)NAME
Xacobeo::Timer - A custom made timer.
SYNOPSIS
use Xacobeo::Timer;
# As a one time use
my $timer = Xacobeo::Timer->start("Long operation");
do_long_operation();
$timer->elapsed(); # Displays the time elapsed
# A simple stop watch (the destructor displays the time elapsed)
my $TIMER = Xacobeo::Timer->new("Method calls");
sub hotspot {
$TIMER->start();
# Very slow stuff here
$TIMER->stop();
}
DESCRIPTION
This package provides a very simple timer. This timer is used for finding hot spots in the application.
The timer is quite simple it provides the method "start" that starts the timer and the method "stop" that stops the timer and accumulates
the elapsed time. The method "show" can be used to print the time elapsed so far while the method "elapsed" returns the time elapsed so
far.
When an instance of this class dies (because it was undefed or collected by the garbage collector) the builtin Perl desctrutor will
automatically call the method "show". But if the method show or elapsed was called during the lifetime of the instance then the destructor
will not invoke the method show.
METHODS
The package defines the following methods:
new
Creates a new Timer.
Parameters:
o $name (Optional)
The name of the timer.
start
Starts the timer. If this sub is called without a blessed instance then a new Timer will be created.
Parameters:
o $name (optional)
The name is used only when called without a blessed instance.
stop
Stops the timer and adds accumulates the elapsed time. If the timer wasn't started previously this results in a no-op.
show
Prints the elapsed time. This method stops the timer if it was started previously and wasn't stopped.
elapsed
Returns the total time elapsed so far. If the timer was already started the pending time will not be taking into account.
AUTHORS
Emmanuel Rodriguez <potyl@cpan.org>.
COPYRIGHT AND LICENSE
Copyright (C) 2008,2009 by Emmanuel Rodriguez.
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.8 or,
at your option, any later version of Perl 5 you may have available.
perl v5.14.2 2011-11-16 Xacobeo::Timer(3pm)
Check Out this Related Man Page
Util::TimeTracker(3pm) User Contributed Perl Documentation Util::TimeTracker(3pm)NAME
Log::Log4perl::Util::TimeTracker - Track time elapsed
SYNOPSIS
use Log::Log4perl::Util::TimeTracker;
my $timer = Log::Log4perl::Util::TimeTracker->new();
# equivalent to Time::HiRes::gettimeofday(), regardless
# if Time::HiRes is present or not.
my($seconds, $microseconds) = $timer->gettimeofday();
# reset internal timer
$timer->reset();
# return milliseconds since last reset
$msecs = $timer->milliseconds();
# return milliseconds since last call
$msecs = $timer->delta_milliseconds();
DESCRIPTION
This utility module helps tracking time elapsed for PatternLayout's date and time placeholders. Its accuracy depends on the availability of
the Time::HiRes module. If it's available, its granularity is milliseconds, if not, seconds.
The most common use of this module is calling the gettimeofday() method:
my($seconds, $microseconds) = $timer->gettimeofday();
It returns seconds and microseconds of the current epoch time. If Time::HiRes is installed, it will simply defer to its gettimeofday()
function, if it's missing, time() will be called instead and $microseconds will always be 0.
To measure time elapsed in milliseconds, use the reset() method to reset the timer to the current time, followed by one or more calls to
the milliseconds() method:
# reset internal timer
$timer->reset();
# return milliseconds since last reset
$msecs = $timer->milliseconds();
On top of the time span between the last reset and the current time, the module keeps track of the time between calls to
delta_milliseconds():
$msecs = $timer->delta_milliseconds();
On the first call, this will return the number of milliseconds since the last reset(), on subsequent calls, it will return the time elapsed
in milliseconds since the last call to delta_milliseconds() instead. Note that reset() also resets the time of the last call.
The internal timer of this module gets its time input from the POSIX time() function, or, if the Time::HiRes module is available, from its
gettimeofday() function. To figure out which one it is, use
if( $timer->hires_available() ) {
print "Hooray, we get real milliseconds!
";
} else {
print "Milliseconds are just bogus
";
}
For testing purposes, a different time source can be provided, so test suites can simulate time passing by without actually having to wait:
my $start_time = time();
my $timer = Log::Log4perl::Util::TimeTracker->new(
time_function => sub {
return $start_time++;
},
);
Every call to $timer->epoch() will then return a time value that is one second ahead of the the value returned on the previous call. This
also means that every call to delta_milliseconds() will return a value that exceeds the value returned on the previous call by 1000.
COPYRIGHT AND LICENSE
Copyright 2002-2009 by Mike Schilli <m@perlmeister.com> and Kevin Goess <cpan@goess.org>.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
perl v5.10.1 2010-07-21 Util::TimeTracker(3pm)