File Coverage

blib/lib/Benchmarks.pm

Criterion	Covered	Total	%
statement	24	25	96.0
branch	15	22	68.1
condition	2	3	66.6
subroutine	5	5	100.0
pod			n/a
total	46	55	83.6

package Benchmarks;
use strict;
use warnings;
use Benchmark qw/ :hireswallclock /;
our $VERSION = '0.11';

sub import {
    my ($class, $code, $count, $style, $title) = @_;

    Benchmark->export_to_level(1, $class, ':all');

    return unless $code;
    return unless ref $code eq 'CODE';

    my ($ret, $runtime_count, $runtime_style, $runtime_title)  = $code->();

    return if !defined $ret;

    $count = defined($runtime_count) ? $runtime_count
           : defined($count)         ? $count
           : -1;
    $style = defined($runtime_style) ? $runtime_style
           : defined($style)         ? $style
           : 'auto';
    $title = defined($runtime_title) ? $runtime_title
           : defined($title)         ? $title
           : undef;

    _run_benchmark($count, $ret, $style, $title);
}

sub _run_benchmark {
    my ($count, $ret, $style, $title) = @_;

    my $ref_ret = ref $ret;

    if ( !$ref_ret || $ref_ret eq 'CODE' ) {
        Benchmark::timethis($count, $ret, $title, $style);
    }
    elsif ( $ref_ret eq 'HASH' ) {
        Benchmark::cmpthese($count, $ret, $style);
    }
    else {
        die "The CODE returned wrong retval.";
    }
}

1;

__END__