#! /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;
             },
         });

##</code><code>##

              Rate interval     time    hires
interval  685148/s       --     -79%     -80%
time     3340426/s     388%       --      -2%
hires    3398163/s     396%       2%       --

##</code><code>##

              Rate interval    hires     time
interval  971246/s       --     -77%     -78%
hires    4192706/s     332%       --      -3%
time     4327848/s     346%       3%       --