File Coverage

blib/lib/DiaColloDB/Timer.pm

Criterion	Covered	Total	%
statement	9	28	32.1
branch	0	6	0.0
condition	0	3	0.0
subroutine	3	10	30.0
pod	7	7	100.0
total	19	54	35.1

## -*- Mode: CPerl -*-
## File: DiaColloDB::Client.pm
## Author: Bryan Jurish <[e-mail]>
## Description: collocation db, timer

package DiaColloDB::Timer;
use Time::HiRes qw(gettimeofday tv_interval);
use DiaColloDB::Utils qw(:time);
use strict;


##==============================================================================
## Globals & Constants

our @ISA = qw();

##==============================================================================
## Constructors etc.

## $timer = CLASS_OR_OBJECT->new(%args)
## + %args, object structure:
##   (
##    started => $t0,      ##-- time last operation started
##    elapsed => $elapsed, ##-- elapsed time (after stop())
##   )
sub new {
  my $that = shift;
  return bless({
		started=>undef,
		elapsed=>0,
		@_
	       }, ref($that)||$that);
}

##==============================================================================
## Timing

## $timer = CLASS_OR_OBJECT->start()
##  + (re-)starts timer
sub start {
  my $timer = shift;
  $timer = $timer->new() if (!ref($timer));
  $timer->{started} = [gettimeofday];
  return $timer;
}

## $timer = $timer->stop()
##  + stops timer and adds current interval to {elapsed}
sub stop {
  my $timer = shift;
  return $timer if (!defined($timer->{started}));
  $timer->{elapsed} = $timer->elapsed();
  $timer->{started} = undef;
  return $timer;
}

## $timer = $timer->reset()
##  + stops and re-sets timer
sub reset {
  my $timer = shift;
  $timer->{started} = undef;
  $timer->{elapsed} = 0;
  return $timer;
}

## $elapsed = $timer->elapsed()
##  + get total elapsed time for this timer
sub elapsed {
  my $timer = shift;
  return $timer->{elapsed} + (defined($timer->{started}) ? tv_interval($timer->{started},[gettimeofday]) : 0);
}


## $hms       = $timer->hms($sfmt?)
## ($h,$m,$s) = $timer->hms($sfmt?)
##  + parses and optionally formats elapsed time as HH:MM:SS.SSS
sub hms {
  return DiaColloDB::Utils::s2hms($_[0]->elapsed,@_[1..$#_]);
}

## $timestr = $timer->timestr($sfmt?)
##  + parses and formats elapsed time as Hh?Mm?Ss
sub timestr {
  return DiaColloDB::Utils::s2timestr($_[0]->elapsed,@_[1..$#_]);
}

##==============================================================================
## Footer
1;

__END__