File Coverage

blib/lib/Time/SoFar.pm

Criterion	Covered	Total	%
statement	34	34	100.0
branch	8	8	100.0
condition	3	3	100.0
subroutine	5	5	100.0
pod	0	3	0.0
total	50	53	94.3

package Time::SoFar;

use integer;
use vars qw($VERSION);
$VERSION="1.00";
require Exporter;
@ISA = qw(Exporter);

@EXPORT_OK = qw( runtime runinterval figuretimes );

my $lasttime;
my $day;
my $hour;
my $min;
my $sec;

sub figuretimes($;$) {
  my $rtime = shift;
  my $noopt = shift;
  my @times;

  $min   = $rtime / 60;        # requires 'use integer'
  $sec   = $rtime % 60;
  $hour  = $min   / 60;        # requires 'use integer'
  $min   = $min   % 60;
  $day   = $hour  / 24;        # requires 'use integer'
  $hour  = $hour  % 24;

  if ($day or $noopt) {
    @times = ($day, $hour, $min, $sec);
  } elsif ($hour) {
    @times = ($hour, $min, $sec);
  } else {
    @times = ($min, $sec);
  }

  if (wantarray) {
    return @times;
  } else {
    my $return = join(':', @times);
    $return =~ s/:(\d)\b/:0$1/g;
    return $return;
  }
} # end &figuretimes

sub runtime(;$) {
  my $noopt = shift;
  $lasttime = (time() - $^T);

  return &figuretimes($lasttime, $noopt);
} # end &runtime

sub runinterval(;$) {
  my $noopt = shift;
  if (!defined($lasttime)) {
    $lasttime = 0;
  }
  my $rtime    = (time() - $^T);
  my $interval = $rtime - $lasttime;
  $lasttime = $rtime;

  return &figuretimes($interval, $noopt);
} # end &runinterval

1;

__END__