Why not adopt me?
This distribution is up for adoption!
If you're interested then please contact the PAUSE module admins via
email.
Name
QBit::TimeLog - class for hierarchical time logging.
Synopsis
#!/usr/bin/perl
use qbit;
use QBit::TimeLog;
my $timelog = QBit::TimeLog->new();
$timelog->start('Main prog');
$timelog->start('1');
sleep(1);
$timelog->finish();
$timelog->start('2');
$timelog->start('3');
sleep(3);
$timelog->finish();
$timelog->finish();
$timelog->finish();
print $timelog . '';
Result:
4.000617 sec: main prog
0.000028 sec: Working
1.000207 sec: 1
0.000089 sec: Working
3.000287 sec: 2
0.000028 sec: Working
3.000232 sec: 3
0.000027 sec: Working
0.000006 sec: Working
Variables
$UNKNOWN_ACTION - name of actions between time logging. Default:
Working
.
Methods
start
Start new timeline.
Arguments:
$description - string, description of timeline.
finish
Finish current timeline.
No arguments.
as_string
Return timelog as string.
No arguments.
Print timelog to STDERR.
No arguments.