#!/usr/bin/perl

use FastMktime;
use Benchmark qw(:all);
use POSIX qw(mktime);
use Time::Local;

my $sstart = time;
my $sstop  = $sstart + 1e7;
my @dates;

# Stuff 1e7 sequential datestamps into an array. 
for (my $s=$sstart; $s<$sstop; $s++) {
  push(@dates, [ (gmtime $s)[0..5] ]);
}

my $tmp;
my $results = timethese(1, {
    'POSIX::mktime' => sub { $tmp = POSIX::mktime(@$_) for @dates },
    'TIME::Local::timegm_nocheck' => sub { $tmp = Time::Local::timegm_nocheck(@$_) for @dates },
    'FastMktime::caching_mktime' => sub { $tmp = FastMktime::caching_mktime(@$_) for @dates },
});