File Coverage

blib/lib/Benchmark/Perl/Formance/Plugin/Mandelbrot.pm

Criterion	Covered	Total	%
statement	35	37	94.5
branch	9	18	50.0
condition			n/a
subroutine	7	7	100.0
pod	2	2	100.0
total	53	64	82.8

# -*- mode: cperl -*-
use 5.008;
use strict;
use warnings;

package Benchmark::Perl::Formance::Plugin::Mandelbrot;
# git description: 9f757a9

our $AUTHORITY = 'cpan:SCHWIGON';
# ABSTRACT: Benchmark::Perl::Formance plugin - more modern mandelbrot
$Benchmark::Perl::Formance::Plugin::Mandelbrot::VERSION = '0.001';
our @default_subtests = qw( withmce withthreads );

sub run
{
        my ($options) = @_;

        no strict "refs"; ## no critic

        my %results  = ();
        my $verbose  = $options->{verbose};
        my $subtests = $options->{subtests};
        my @subtests = scalar(@{$subtests||[]}) ? @{$subtests||[]} : @default_subtests;

        for my $subtest (@subtests)
        {
                print STDERR "#  - $subtest...\n" if $options->{verbose} > 2;
                eval "use ".__PACKAGE__."::$subtest"; ## no critic
                if ($@) {
                        print STDERR "# Skip PerlStone plugin '$subtest'" if $verbose;
                        print STDERR ":$@"                                if $verbose >= 2;
                        print STDERR "\n"                                 if $verbose;
                }
                else {
                        eval {
                                my $main = __PACKAGE__."::$subtest"."::main";
                                $results{$subtest} = $main->($options);
                        };
                        if ($@) {
                                $results{$subtest} = { failed => $@ };
                        }
                }
        }
        return \%results;
}

sub main
{
        my ($options) = @_;

        my $results = run($options);

        return $results;
}

1; # End of Benchmark::Perl::Formance::Plugin::PerlStone2015

__END__