File Coverage

blib/lib/Perf/Stopwatch.pm

Criterion	Covered	Total	%
statement	43	46	93.4
branch	13	16	81.2
condition	1	3	33.3
subroutine	11	13	84.6
pod	10	10	100.0
total	78	88	88.6

package Perf::Stopwatch;
require Exporter;

use strict;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
use Time::HiRes qw(gettimeofday tv_interval);

$VERSION   = '0.10';
@ISA       = qw(Exporter);
@EXPORT    = qw();
@EXPORT_OK = qw(start stop lap clear getTime getLaps getMinLap getMaxLap);
%EXPORT_TAGS = (
    normal => [qw(start stop getTime)],
    burst  => [qw(start stop clear getTime)],
    lap    => [qw(start stop lap getTime getLaps getMinLap getMaxLap)],
    all    => [qw(start stop lap clear getTime getLaps getMinLap getMaxLap)]
);

sub new {
	my $inv = shift;
    my $cls = ref($inv) || $inv;

    # Possible $types are: normal, lap, burst
    my $obj = {
        type  => "normal",
        laps  => 100,
        c_lap => 0,
        final => 0,
        @_
    };

    # convert common string to efficient number comparison
    if( $obj->{type} eq "normal" ){
        $obj->{type} = 0;
    } elsif( $obj->{type} eq "lap" ){
        $obj->{type} = 1;
    } elsif( $obj->{type} eq "burst" ){
        $obj->{type} = 2;
    }
    $obj->{lap}[$obj->{laps}-1] = undef if( $obj->{type} == 1 );

    return bless $obj, $cls;
}

sub start {
    shift->{t_beg} = [gettimeofday];
}

sub stop {
    my $self = shift;
    $self->{t_end} = [gettimeofday];

    if( $self->{type} == 2 ){
        $self->{final} += tv_interval( $self->{t_beg}, $self->{t_end} );
    } elsif( $self->{type} == 1 ){
        $self->{lap}[$self->{c_lap}++] = tv_interval( $self->{t_beg}, $self->{t_end} );
    } elsif( $self->{type} == 0 ){
        $self->{final} = tv_interval( $self->{t_beg}, $self->{t_end} );
    }
}

sub lap {
    my $self = shift;
    $self->{t_end} = [gettimeofday];
    $self->{lap}[$self->{c_lap}++] = tv_interval( $self->{t_beg}, $self->{t_end} );
    $self->{t_beg} = [gettimeofday];
}

sub clear {
    shift->{final} = 0;
}

sub getTime {
    my $self = shift;

    if( $self->{type} == 1 ){
        $self->{final} = 0;
        $self->{final} += $_ foreach( @{$self->{lap}} );
    }
    return $self->{final};
}

sub numLaps {
    return shift->{c_lap};
}

sub getLaps {
    return shift->{lap};
}

sub getMaxLap {
    my @t = reverse sort { $a <=> $b } @{shift->{lap}};
    return $t[0];
}

sub getMinLap {
    my @t = sort { $a <=> $b } @{shift->{lap}};
    return $t[0];
}

1;
__END__