#! /usr/bin/perl
use warnings;
use strict;
use Time::HiRes qw(time);
use Benchmark qw(:all) ;
my $interval0 = [Time::HiRes::gettimeofday()];
my $hires0 = Time::HiRes::time();
my $time0 = time();
cmpthese(-1,
{
'interval' => sub {
my $elapsed = Time::HiRes::tv_interval($interval0);
return;
},
'hires' => sub {
my $elapsed = Time::HiRes::time() - $hires0;
return;
},
'time' => sub {
my $elapsed = time - $time0;
return;
},
});
####
Rate interval time hires
interval 685148/s -- -79% -80%
time 3340426/s 388% -- -2%
hires 3398163/s 396% 2% --
##
##
Rate interval hires time
interval 971246/s -- -77% -78%
hires 4192706/s 332% -- -3%
time 4327848/s 346% 3% --