- SEE ALSO
- COPYRIGHT AND LICENSE
Log::Any::IfLOG - Load Log::Any only if "logging is enabled"
This document describes version 0.07 of Log::Any::IfLOG (from Perl distribution Log-Any-IfLOG), released on 2015-08-17.
use Log::Any::IfLOG '$log';
This module is a drop-in replacement/wrapper for Log::Any to be used from your modules. This is a quick-hack solution to avoid the cost of loading Log::Any under "normal condition". Since Log::Any 1.00, startup overhead increases to about 7-10ms on my PC/laptop (from under 1ms for the previous version). Because I want to keep startup overhead of CLI apps under 50ms (see Perinci::CmdLine::Lite) to keep tab completion from getting a noticeable lag, every millisecond counts.
This module will only load Log::Any when "logging is enabled". Otherwise, it will just return without loading anything. If
$log is requested in import, a fake object is returned that responds to methods like
is_debug and so on but will do nothing when called and just return 0.
To determine "logging is enabled":
Is $ENABLE_LOG defined?
This package variable can be used to force "logging enabled" (if true) or "logging disabled" (if false). Normally, you don't need to do this except for testing.
Is Log::Any is already loaded (from %INC)?
If Log::Any is already loaded, it means we have taken the overhead hit anyway so logging is enabled.
Is one of log-related environment variables true?
Otherwise, logging is disabled.
This setting can be forced to force loading Log::Any or not.
Please visit the project's homepage at https://metacpan.org/release/Log-Any-IfLOG.
Source repository is at https://github.com/perlancar/perl-Log-Any-IfLOG.
Please report any bugs or feature requests on the bugtracker website https://rt.cpan.org/Public/Dist/Display.html?Name=Log-Any-IfLOG
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.
This software is copyright (c) 2015 by firstname.lastname@example.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.