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