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

Print timelog to STDERR.

No arguments.