#!/usr/bin/env perl

use 5.010;
use strict;
use warnings;
no warnings 'void';
use FindBin '$Bin';
use lib "$Bin/../lib";

use Benchmark::Dumb qw(cmpthese);
use Text::sprintfn;

cmpthese(0, {
    'sprintf ("%s",1) 1k' => sub { sprintf ("%s",1) for 1..1000 },
    'sprintf ("%s%d%f",1,2,3) 1k' => sub { sprintf ("%s%d%f",1,2,3) for 1..1000 },
    'sprintfn("%s",1) 1k' => sub { sprintfn("%s",1) for 1..1000 },
    'sprintfn("%(a)s",{a=>1}) 1k' => sub { sprintfn("%(a)s",{a=>1}) for 1..1000 },
    'sprintfn("%(a)s%(b)d%(c)f",{..}) 1k' => sub { sprintfn("%(a)s%(b)d%(c)f",{a=>1,b=>2,c=>3}) for 1..1000 },
});
