Example 3
use Tool::Bench;
my $bench = Tool::Bench->new();
my $naptime;
$bench->add_items( true => sub{1},
false => sub{0},
more => { code => sub{sleep($naptime)},
note => 'taking a nap',
buildup => sub{$naptime = rand(10)},
teardown => sub{$naptime = 1},
},
);
$bench->run(3);
print $bench->report(format => 'JSON');