#!/usr/bin/perl
use strict;
use warnings;
use Benchmark::Confirm qw/timethese/;
{
my $result = timethese( 1 => +{
Name1 => sub { "something" },
Name2 => sub { "something" },
Name3 => sub { "something" },
});
}
Benchmark::Confirm->reset_confirm;
{
my $result = timethese( 1 => +{
Name1 => sub { 1 },
Name2 => sub { 1 },
Name3 => sub { 1 },
});
}