Yet Another CPAN Grep

Benchmark-Perl-Formance ( S/SC/SCHWIGON/perl-formance/Benchmark-Perl-Formance-0.55.tar.gz, SCHWIGON, 2021; MetaCPAN )

Benchmark-Perl-Formance/lib/Benchmark/Perl/Formance.pm ( view source; MetaCPAN )

anything; # -cccc
        $outstyle          = 'json' if $benchmarkanything and $outstyle !~ /^(json|yaml|yamlish)$/;
        $outstyle          = 'json' if $benchmarkanything_report;

        # fill

       return YAML::Dump($RESULTS);
}

sub print_outstyle_json
{
        my ($self, $RESULTS) = @_;

        require JSON;
        return JSON->new->allow_nonref->pretty->encode( $RESULTS );
}

sub pr

>{options}{outstyle};
        $outstyle = "summary" unless $outstyle =~ qr/^(summary|yaml|yamlish|json)$/;
        my $sub = "print_outstyle_$outstyle";

        my $output = $self->$sub($RESULTS);