The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
 / 
Devel-EndStats-0.212
River stage one • 2 direct dependents • 2 total dependents
6 ++
/ Devel::EndStats

NAME

Devel::EndStats - Display run time and dependencies after running code

VERSION

This document describes version 0.212 of Devel::EndStats (from Perl distribution Devel-EndStats), released on 2023-05-12.

SYNOPSIS

 # from the command line
 % perl -MDevel::EndStats=time_hires,1 script.pl

 ##### sample output #####
 <normal script output, if any...>

 # BEGIN stats from Devel::EndStats
 # Program runtime duration: 0.055s
 # Total number of required files loaded: 132
 # Total number of required lines loaded: 48772
 # END stats

 ##### sample output (with verbose=1 & time_hires=1, some cut) #####
 <normal script output, if any...>

 # BEGIN stats from Devel::EndStats
 # Program runtime duration: 0.055s
 # Total number of required files loaded: 132
 # Total number of required lines loaded: 48772
 #   #  1   1747 lines  0.023489s( 43%)  Log/Any/App.pm (loaded by main)
 #   # 52   1106 lines  0.015112s( 28%)  Log/Log4perl/Logger.pm (loaded by Log::Log4perl)
 #   # 17    190 lines  0.011983s( 22%)  Log/Any/Adapter.pm (loaded by Log::Any::App)
 #   # 18    152 lines  0.011679s( 21%)  Log/Any/Manager.pm (loaded by Log::Any::Adapter)
 #   #  5    981 lines  0.007299s( 13%)  File/Path.pm (loaded by Log::Any::App)
 ...
 # END stats

DESCRIPTION

Devel::EndStats runs in the END block, displaying various statistics about your program, such as:

  • how many seconds the program ran;

  • how many required files and total number of lines loaded (from %INC);

  • etc.

It works by installing a hook in @INC to record the loading of modules.

Some notes/caveats:

Devel::EndStats should be loaded before other modules, for example by running it on the command-line, as shown in the SYNOPSIS.

KNOWN ISSUES

* Timing and memory usage is inclusive instead of exclusive.

OPTIONS

Some options are accepted. They can be passed via the use statement:

 # from the command line
 % perl -MDevel::EndStats=verbose,1 script.pl

 # from script
 use Devel::EndStats verbose=>1;

or via the "PERL_DEVEL_ENDSTATS_OPTS" environment variable:

 % PERL_DEVEL_ENDSTATS_OPTS='verbose=1' perl -MDevel::EndStats script.pl

If you use the later, you will need to use use and not require to load Devel::EndStats, because reading the environment variable is done in the import() hook of the module.

  • verbose

    Bool, default 0. Can also be set via "VERBOSE" environment variable. If set to true, display more statistics (like per-module statistics).

  • debug

    Bool, default 0. Can also be set via "DEBUG" environment variable. If set to true, display debugging messages to stderr.

  • time_hires

    Bool, default 0. By default, time is measured using the builtin time() which only has 1-second precision. To enable subsecond precision, set this option to true. Setting this option to true will load Time::HiRes and affect the results.

  • sort

    String, default caller. Set how to sort the list of loaded modules ('file' = by file, 'time' = by load time, 'caller' = by first caller's package, 'order' = by order of loading, 'lines' = by number of lines). Only relevant when 'verbose' is on.

  • force

    Bool, default 0. By default, if BEGIN phase did not succeed, stats will not be shown. This option forces displaying the stats.

  • hide_core

    Bool, default 0. Whether to hide core modules while listing modules in verbose mode. When this is set to true, will load Module::CoreList, so that will affect the results.

  • hide_noncore

    Bool, default 0. Whether to hide non-core modules while listing modules in verbose mode. When this is set to true, will load Module::CoreList, so that will affect the results.q

  • show_memsize

    Bool, default 0. Whether to show memory usage information. Currently this is done by probing /proc/$$/statm because some other memory querying modules are unusable (e.g. Devel::SizeMe currently segfaults on my system, Devel::InterpreterSize is too heavy).

FAQ

What is the purpose of this module?

This module might be useful during development. I first wrote this module when trying to reduce startup overhead of a command line application, by looking at how many modules the app has loaded and try to avoid loading modules whenever it's unnecessary.

Why are some modules always shown as being already loaded despite me not having loaded any of such modules?

These are Devel::EndStats itself and modules that are loaded by Devel::EndStats, e.g. Time::HiRes, Module::CoreList, and modules that are loaded by those modules.

Why are some modules have 'Seq' (sequence) value of '?'

These are modules that are loaded before Devel::EndStats and had not been traced by Devel::EndStats's @INC hook.

PERL_DEVEL_ENDSTATS_OPTS is not observed!

Make sure you load Devel::EndStats using use and not require, or make sure you import() the module, because reading of the environment variable is done in the import() hook.

How to measure subsecond times?

Set option time_hires to true. Either from the use line:

 # in perl code
 use Devel::EndStats time_hires=>1;

 # on the command line
 % perl -MDevel::EndStats=time_hires,1

or from the environment variable "PERL_DEVEL_ENDSTATS_OPTS":

 % PERL_DEVEL_ENDSTATS_OPTS="time_hires=1" perl -MDevel::EndStats ...

Can you add (so and so) information to the stats?

Sure, if it's useful. As they say, (comments|patches) are welcome.

ENVIRONMENT

VERBOSE

Bool. If set to true, will set verbose option to true.

DEBUG

Bool. If set to true, will set debug option to true.

PERL_DEVEL_ENDSTATS_OPTS

String. A space-separated key-value pairs to set options.

HOMEPAGE

Please visit the project's homepage at https://metacpan.org/release/Devel-EndStats.

SOURCE

Source repository is at https://github.com/perlancar/perl-Devel-EndStats.

SEE ALSO

There are many modules on CPAN that can be used to generate dependency information for your code. Neil Bowers has written a review that covers most of them.

AUTHOR

perlancar <perlancar@cpan.org>

CONTRIBUTORS

  • Neil Bowers <neil@bowers.com>

  • Steven Haryanto <stevenharyanto@gmail.com>

CONTRIBUTING

To contribute, you can send patches by email/via RT, or send pull requests on GitHub.

Most of the time, you don't need to build the distribution yourself. You can simply modify the code, then test via:

 % prove -l

If you want to build the distribution (e.g. to try to install it locally on your system), you can install Dist::Zilla, Dist::Zilla::PluginBundle::Author::PERLANCAR, Pod::Weaver::PluginBundle::Author::PERLANCAR, and sometimes one or two other Dist::Zilla- and/or Pod::Weaver plugins. Any additional steps required beyond that are considered a bug and can be reported to me.

COPYRIGHT AND LICENSE

This software is copyright (c) 2023, 2015, 2014, 2013, 2012, 2010 by perlancar <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.

BUGS

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

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.