view release on metacpan or  search on metacpan

example/run_bench.pl  view on Meta::CPAN

#!perl

use 5.010;
use strict;
use warnings;

use Benchmark qw(:all);

use Acme::StringFormat ();

say 'Acme::StringFromat/', Acme::StringFormat->VERSION, "\n";

my $fmt1 = '[%s]';
my $fmt2 = '[%s][%d]';
my $arg1 = 'foo';
my $arg2 = 10;

say 'number of arguments: 1';
cmpthese timethese -1 => {
	'sprintf' => sub{
		my $s = sprintf $fmt1, $arg1;
	},
	'%' => sub{
		use Acme::StringFormat;
		my $s = $fmt1 % $arg1;
	},
};


say 'number of arguments: 2';
cmpthese timethese -1 => {
	'sprintf' => sub{
		my $s = sprintf $fmt2, $arg1, $arg2;
	},
	'%' => sub{
		use Acme::StringFormat;
		my $s = $fmt2 % $arg1 % $arg2;
	},
};