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.