File Coverage

blib/lib/App/Benchmark.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch			n/a
condition			n/a
subroutine	10	10	100.0
pod	1	1	100.0
total	39	39	100.0

use 5.008;
use strict;
use warnings;

package App::Benchmark;
BEGIN {
  $App::Benchmark::VERSION = '1.102310';
}
# ABSTRACT: Output your benchmarks as test diagnostics

use Test::More;
use Benchmark qw(cmpthese timethese :hireswallclock);
use Capture::Tiny qw(capture);
use Exporter qw(import);
our @EXPORT = ('benchmark_diag');

sub benchmark_diag {
    my ($iterations, $benchmark_hash) = @_;
    my $stdout = capture {
        cmpthese(timethese($iterations, $benchmark_hash));
    };
    diag $stdout;
    plan tests => 1;
    pass('benchmark');
}
1;


__END__