The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.
#! /usr/bin/perl
# PODNAME: benchmark-perlformance
# ABSTRACT: Frontend for Benchmark::Perl::Formance

use Benchmark::Perl::Formance;

my $pf = Benchmark::Perl::Formance->new;

my $results = $pf->run;
$pf->print_results($results);



__END__
=pod

=encoding utf-8

=head1 NAME

benchmark-perlformance - Frontend for Benchmark::Perl::Formance

=head1 SYNOPSIS

Usage:

  $ benchmark-perlformance
  $ benchmark-perlformance --plugins=SpamAssassin,Fib,Rx
  $ benchmark-perlformance --plugins=SpamAssassin,Fib,Rx -q
  $ benchmark-perlformance --plugins=SpamAssassin,Fib,Rx -v
  $ benchmark-perlformance --plugins=SpamAssassin,Fib,Rx -vv -ccccc

If run directly it uses the perl in your PATH:

  $ /path/to/benchmark-perlformance

To use another Perl start it via

  $ /other/path/to/bin/perl /path/to/benchmark-perlformance

To provide configuration, general and plugin specific, you can use the
C<-D> option to define key/value pairs:

  $ benchmark-perlformance -DShootout_fasta_n=5500  [...]

Plugins usually follow the convention that the options are prefixed
with the plugin name, like in the example it means the config value
C<n> used by the plugin C<Shootout::fasta>.

=head1 ABOUT

This is the frontend commandline tool for starting the performance
benchmark runs.

After running it prints out the results which you can take to compare
them to runs with other Perl versions, other architectures, different
compile time configuration or on different machines.

=head1 OPTIONS

There are some options available.

=over 4

=item --help

=item -h

prints out a help page.

=item --plugins=SpamAssassin,Fib,Rx

Use only a particular list of sub benchmarks. The comma-separated list
refers to C<Benchmark::Perl::Formance::Plugin::*> respectively.

If you provide C<--plugins=ALL> then all known plugins will be tried.

If you do not provide the C<--plugins> option then a default list of
"mostly harmless" plugins is used which should work with the same
dependencies of Benchmark::Perl::Formance itself (currently: C<DPath>,
C<Fib>, C<FibOO>, C<Mem>, C<Prime>, C<Rx>, C<Shootout::>{C<fasta>,
C<regexdna>, C<binarytrees>, C<revcomp>, C<nbody>, C<spectralnorm>}).

=item --outstyle=summary

This enables a condensed tabular output instead of YAML.
Default since v0.10.

=item --outstyle=yaml

This activates YAML formatted output.

=item --fastmode

If this is set then some plugins try to scale down the stress to take
less time (with less useful results, of course). Mostly for easier
development.

=item --version

Print Benchmark::Perl::Formance version.
In conjunction with C<-v> it prints out all available
plugins with version.

=item --verbose

=item -v

=item -vv

=item -vvv

=item -vvvv

=item -vvvvv

Increases the verbosity level during the run of the
benchmarks. Default is only print the result (and maybe some output
from external tools).

To increase the number of keys from your Perl Config that are included
in the result use one or more -c options.

Please note that only one single -v is not enough to see errors that
occur when trying to load a plugin. They are only marked as
"skipped". Use -vv to see the error message; -vvv for progress
information; -vvvv or more should be used for debugging info.

=item -q

Be quiet; do not output results.

=item --showconfig

=item -c

Gives you the most basic information like Perl version, operating
system name and architecture, i.e., C<perlpath>, C<version>,
C<archname>, C<archname64>, C<osvers>.

=item -cc

Adds C<gccversion>, C<gnulibc_version>, C<usemymalloc>,
C<config_args>, C<optimize>.

=item -ccc

Adds C<ccflags>, C<cppflags>, C<nm_so_opt>.

=item -cccc

Currently does not increase information.

=item -ccccc

Includes all info from Perls %Config hash.

=item -p

Includes platform info via Devel::Platform::Info

(Users who want to greet the 80s combine it this way: C<-cccp>. :-)

=item --tapdescription="some description"

When given this will prepend the YAML with a TAP line

  ok some description

This makes it easier for wrappers to embed the output into TAP which
otherwise need to differentiate between output (verbose and other) and
the YAML.

=item --indent=2

This indents the whole yaml output by some spaces (2 in the
example). Together with C<--tapdescription> it makes an TAP v13 style
structured diagnostics block which can, for instance, be evaluated
using L<TAP::DOM>.

=item --useforks

By setting this you can activate the C<forks> drop-in replacement for
threads.

See
L<Benchmark::Perl::Formance::Plugin::Threads|Benchmark::Perl::Formance::Plugin::Threads>.

=item -Dkey=value

With this you can configure some plugins by defining key/value pairs.

=back

=head1 ENVIRONMENT VARIABLES

There are some options available.

=over 4

=item PERLFORMANCE_SALEARN

See L<Benchmark::Perl::Formance::Plugin::SpamAssassin|Benchmark::Perl::Formance::Plugin::SpamAssassin>. Contains
the path to the "sa-learn" executable.

=item PERLFORMANCE_THREADCOUNT

See
L<Benchmark::Perl::Formance::Plugin::Threads|Benchmark::Perl::Formance::Plugin::Threads>. Use
this many count of threads. Default is 16.

=back

=head1 PLUGINS

Please read the documentation for the used plugins, as they might accept
special configuration, usually via C<-Dkey=value> options.

=over 4

=item L<Benchmark::Perl::Formance::Plugin::SpamAssassin|Benchmark::Perl::Formance::Plugin::SpamAssassin>

Run Bayes learning tools from SpamAssassin.

=item L<Benchmark::Perl::Formance::Plugin::Rx|Benchmark::Perl::Formance::Plugin::Rx>

Stress using Perl6/Perl5 tools around STD.pm

=item L<Benchmark::Perl::Formance::Plugin::DPath|Benchmark::Perl::Formance::Plugin::DPath>

Use DPath to stress lookup, traversing and copying data structures.

=item L<Benchmark::Perl::Formance::Plugin::Rx|Benchmark::Perl::Formance::Plugin::Rx>

Regular expressions, basic functions and pathological regex stressing.

=item L<Benchmark::Perl::Formance::Plugin::RxCmp|Benchmark::Perl::Formance::Plugin::RxCmp>

Compare differnet regex engines (pluggable since Perl 5.10).

=item L<Benchmark::Perl::Formance::Plugin::Fib|Benchmark::Perl::Formance::Plugin::Fib>

Fibonnacci numbers to stress recursion and function calls.

=item L<Benchmark::Perl::Formance::Plugin::FibOO|Benchmark::Perl::Formance::Plugin::FibOO>

Fibonnacci numbers to stress recursion and method calls, with plain Perl OO.

=item L<Benchmark::Perl::Formance::Plugin::FibMoose|Benchmark::Perl::Formance::Plugin::FibMoose>

Fibonnacci numbers to stress recursion and method calls, with Moose.

=item L<Benchmark::Perl::Formance::Plugin::FibMouse|Benchmark::Perl::Formance::Plugin::FibMouse>

Fibonnacci numbers to stress recursion and method calls, with Mouse.

=item L<Benchmark::Perl::Formance::Plugin::FibMXDeclare|Benchmark::Perl::Formance::Plugin::FibMXDeclare>

Fibonnacci numbers to stress recursion and method calls, with MooseX::Declare.

=item L<Benchmark::Perl::Formance::Plugin::Threads|Benchmark::Perl::Formance::Plugin::Threads>

Thread handling.

=item L<Benchmark::Perl::Formance::Plugin::Shootout|Benchmark::Perl::Formance::Plugin::Shootout>

Runs some Perl benchmarks from the Language Shootout on
alioth.debian.org.

=item L<Benchmark::Perl::Formance::Plugin::P6STD|Benchmark::Perl::Formance::Plugin::P6STD>

Runs tools from Perl6 STD world.

=back

=head1 AUTHOR

Steffen Schwigon <ss5@renormalist.net>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2012 by Steffen Schwigon.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut