NAME

Benchmark - Simple benchmarking

SYNOPSIS

use Benchmark;

my ($start, $end, $diff, $avg) = timethis(1000, "code");
my @stats = timethis(1000, sub { #`( code ) });
say @stats;

my %results = timethese 1000, {
    "foo" => sub { ... },
    "bar" => sub { ... },
};
say ~%results;

DESCRIPTION

A simple benchmarking module with an interface similar to Perl's Benchmark.pm. However, rather than output results to $*OUT, the results are merely returned so that you can output them however you please.

You can also have some basic statistics:

use Benchmark;

%result = timethis(10, { sleep rand }, :statistics);
say %result;
say "$_ : %result{$_}" for <min median mean max sd>;

my %results = timethese 5, {
    "foo" => { sleep rand },
    "bar" => { sleep rand },
}, :statistics;
say ~%results;

AUTHOR

Jonathan Scott Duff

COPYRIGHT AND LICENSE

This library is free software; you can redistribute it and/or modify it under the Artistic License 2.0.