File Coverage

blib/lib/WWW/Spinn3r/Common.pm

Criterion	Covered	Total	%
statement	3	11	27.2
branch	0	2	0.0
condition			n/a
subroutine	1	4	25.0
pod	0	3	0.0
total	4	20	20.0

package WWW::Spinn3r::Common;
use Time::HiRes qw(time gettimeofday tv_interval);

sub debug {

    my ($self, $msg) = @_;
    print "debug: (WWW::Spinn3r) $msg\n" if $self->{debug};

}

sub start_timer {

    my ($self);
    return { now => [gettimeofday] };

}

sub howlong {

    my ($self, $time) = @_;
    my $interval = tv_interval ( $$time{now}, [gettimeofday] );
    my $m = sprintf("%5.3f", $interval);
    return $m;

}

1;