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