view release on metacpan or  search on metacpan

xt/benchmark.t  view on Meta::CPAN

sub report {
    my ( $bench, $results_ref ) = @_;

    foreach my $instance ( $bench->instances ) {
        my $result = $instance->result;
        my $mean   = $result->raw_number;
        my $sigma  = $result->raw_error->[0];
        my $name   = $instance->_name_prefix;
        diag(
            sprintf(
                "%sRan %u iterations (%u outliers).\n",
                $name,
                scalar( @{ $instance->timings } ),
                scalar( @{ $instance->timings } ) - $result->nsamples
            )
        );
        $results_ref->{ $instance->name } = $mean;
        diag(
            sprintf(
                "%s Rounded run time per iteration: %s (%.1f%%)\n",
                $name, "$result", $sigma / $mean * 100