NAME

Bencher::Scenario::LogGer::Overhead - Measure startup overhead of various codes

VERSION

This document describes version 0.014 of Bencher::Scenario::LogGer::Overhead (from Perl distribution Bencher-Scenarios-LogGer), released on 2018-12-20.

SYNOPSIS

To run benchmark with default option:

% bencher -m LogGer::Overhead

For more options (dump scenario, list/include/exclude/add participants, list/include/exclude/add datasets, etc), see bencher or run bencher --help.

DESCRIPTION

Packaging a benchmark script as a Bencher scenario makes it convenient to include/exclude/add participants/datasets (either via CLI or Perl code), send the result to a central repository, among others . See Bencher and bencher (CLI) for more details.

BENCHMARKED MODULES

Version numbers shown below are the versions used when running the sample benchmark.

Log::Any 1.707

Log::Contextual 0.007001

Log::Dispatch 2.65

Log::Dispatch::Null 2.65

Log::Dispatchouli 2.015

Log::Log4perl 1.49

Log::Log4perl::Tiny 1.4.0

Log::ger 0.025

Log::ger::App 0.009

Log::ger::Layout::Pattern 0.001

Log::ger::Output 0.025

Mojo::Log

BENCHMARK PARTICIPANTS

  • use Log::ger (); (perl_code)

    Code template:

    use Log::ger ();
  • use Log::ger; (perl_code)

    Code template:

    use Log::ger;
  • use Log::ger; Log::ger->get_logger; (perl_code)

    Code template:

    use Log::ger; Log::ger->get_logger;
  • use Log::ger::App; (perl_code)

    Code template:

    use Log::ger::App;
  • use Log::ger::App; use Log::ger; (perl_code)

    Code template:

    use Log::ger::App; use Log::ger;
  • use Log::ger::Plugin::OptAway; use Log::ger; (perl_code)

    Code template:

    use Log::ger::Plugin::OptAway; use Log::ger;
  • use Log::ger::Like::LogAny; (perl_code)

    Code template:

    use Log::ger::Like::LogAny;
  • use Log::ger::Like::Log4perl; (perl_code)

    Code template:

    use Log::ger::Like::Log4perl;
  • use Log::ger::App; (perl_code)

    Code template:

    use Log::ger::App;
  • use Log::Any; (perl_code)

    Code template:

    use Log::Any;
  • use Log::Any q($log); (perl_code)

    Code template:

    use Log::Any q($log);
  • use Log::Contextual qw(:log); (perl_code)

    Code template:

    use Log::Contextual qw(:log);
  • use Log::Log4perl; (perl_code)

    Code template:

    use Log::Log4perl;
  • use Log::Log4perl::Tiny; (perl_code)

    Code template:

    use Log::Log4perl::Tiny;
  • use Log::Dispatch; (perl_code)

    Code template:

    use Log::Dispatch;
  • use Log::Dispatch; my $null = Log::Dispatch->new(outputs=>[ ["Nu (perl_code) [output]

    Code template:

    use Log::Dispatch; my $null = Log::Dispatch->new(outputs=>[ ["Null", min_level=>"warn"] ])
  • use Log::Dispatchouli; (perl_code)

    Code template:

    use Log::Dispatchouli;
  • use Log::ger::Output::Screen; (perl_code) [output]

    Code template:

    use Log::ger::Output::Screen;
  • use Log::ger::Output::Composite; (perl_code) [output]

    Code template:

    use Log::ger::Output::Composite;
  • use Mojo::Log; (perl_code)

    Code template:

    use Mojo::Log;
  • use Mojo::Log; my $log=Mojo::Log->new(level=>"warn") (perl_code)

    Code template:

    use Mojo::Log; my $log=Mojo::Log->new(level=>"warn")

SAMPLE BENCHMARK RESULTS

Run on: perl: v5.26.0, CPU: Intel(R) Core(TM) i5-2400 CPU @ 3.10GHz (4 cores), OS: GNU/Linux LinuxMint version 18.2, OS kernel: Linux version 4.8.0-53-generic.

Benchmark with default options (bencher -m LogGer::Overhead):

#table1#
+------------------------------------------------------------------+-----------+-------------------------+------------+-----------+---------+
| participant                                                      | time (ms) | code_overhead_time (ms) | vs_slowest |  errors   | samples |
+------------------------------------------------------------------+-----------+-------------------------+------------+-----------+---------+
| use Log::Dispatchouli;                                           |     110   |                   104   |        1   |   0.00018 |      20 |
| use Log::Dispatch; my $null = Log::Dispatch->new(outputs=>[ ["Nu |     100   |                    94   |        1   |   0.00014 |      20 |
| use Log::Dispatch;                                               |     100   |                    94   |        1.1 |   0.00048 |      20 |
| use Mojo::Log;                                                   |      94   |                    88   |        1.1 |   0.00024 |      20 |
| use Mojo::Log; my $log=Mojo::Log->new(level=>"warn")             |      92   |                    86   |        1.2 |   0.00019 |      20 |
| use Log::Contextual qw(:log);                                    |      80   |                    74   |        1.3 |   0.00014 |      20 |
| use Log::Log4perl;                                               |      40   |                    34   |        2.7 |   0.00022 |      20 |
| use Log::ger::App; use Log::ger;                                 |      23   |                    17   |        4.6 | 6.1e-05   |      20 |
| use Log::Log4perl::Tiny;                                         |      23   |                    17   |        4.7 |   0.00012 |      20 |
| use Log::ger::App;                                               |      17   |                    11   |        6.4 | 5.5e-05   |      20 |
| use Log::ger::Like::Log4perl;                                    |      16   |                    10   |        6.4 | 3.3e-05   |      20 |
| use Log::Any q($log);                                            |      15   |                     9   |        6.9 | 4.5e-05   |      20 |
| use Log::Any;                                                    |      14   |                     8   |        7.4 | 4.7e-05   |      20 |
| use Log::ger::Output::Screen;                                    |      12   |                     6   |        8.7 | 3.6e-05   |      21 |
| use Log::ger::Output::Composite;                                 |       9.1 |                     3.1 |       12   | 3.1e-05   |      20 |
| use Log::ger::Plugin::OptAway; use Log::ger;                     |       9   |                     3   |       12   | 4.5e-05   |      21 |
| use Log::ger::Like::LogAny;                                      |       7   |                     1   |       15   |   4e-05   |      20 |
| use Log::ger; Log::ger->get_logger;                              |       6.6 |                     0.6 |       16   | 2.3e-05   |      20 |
| use Log::ger;                                                    |       6.6 |                     0.6 |       16   | 3.9e-05   |      21 |
| use Log::ger ();                                                 |       6.5 |                     0.5 |       16   | 5.1e-05   |      20 |
| perl -e1 (baseline)                                              |       6   |                     0   |       18   | 5.5e-05   |      20 |
+------------------------------------------------------------------+-----------+-------------------------+------------+-----------+---------+

To display as an interactive HTML table on a browser, you can add option --format html+datatables.

HOMEPAGE

Please visit the project's homepage at https://metacpan.org/release/Bencher-Scenarios-LogGer.

SOURCE

Source repository is at https://github.com/perlancar/perl-Bencher-Scenarios-LogGer.

BUGS

Please report any bugs or feature requests on the bugtracker website https://rt.cpan.org/Public/Dist/Display.html?Name=Bencher-Scenarios-LogGer

When submitting a bug or request, please include a test-file or a patch to an existing test-file that illustrates the bug or desired feature.

AUTHOR

perlancar <perlancar@cpan.org>

COPYRIGHT AND LICENSE

This software is copyright (c) 2018, 2017 by perlancar@cpan.org.

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