AnyEvent->time vs Time::HiRes::time

time.pl

use strict;

use AnyEvent;
use Time::HiRes;
use Data::Dumper;

my $iterations = 10000000;
my $start = Time::HiRes::time;
for ( my $i = 0; $i < $iterations; $i++ )
{
  AnyEvent->time;
}
my $total = Time::HiRes::time - $start;
print "$iterations iterations of AnyEvent->time in $total s\n";

$start = Time::HiRes::time;
for ( my $i = 0; $i < $iterations; $i++ )
{
  Time::HiRes::time;
}
$total = Time::HiRes::time - $start;
print "$iterations iterations of Time::HiRes::time in $total s\n";

my $sum = 0.0;
for ( my $i = 0; $i < $iterations; $i++ )
{
  my $time = Time::HiRes::time * 1000;
  my $anyEvent = AnyEvent->time * 1000;
  $sum += ($anyEvent - $time);
}

my $avgDelta = $sum / $iterations;
print "avg_delta=$avgDelta\n";

Output:

10000000 iterations of AnyEvent->time in 4.02488398551941 s
10000000 iterations of Time::HiRes::time in 1.24445104598999 s
avg_delta=0.000402905444335938