1package WWW::Spinn3r::Common;
2use Time::HiRes qw(time gettimeofday tv_interval);
3
4sub debug {
5
6    my ($self, $msg) = @_;
7    print "debug: (WWW::Spinn3r) $msg\n" if $self->{debug};
8
9}
10
11sub start_timer {
12
13    my ($self);
14    return { now => [gettimeofday] };
15
16}
17
18sub howlong {
19
20    my ($self, $time) = @_;
21    my $interval = tv_interval ( $$time{now}, [gettimeofday] );
22    my $m = sprintf("%5.3f", $interval);
23    return $m;
24
25}
26
271;
28