Log::Log4perl::Warn::Multiple::EasyInit - trap multiple calls to Log::Log4perl::easy_init
version 0.0.1
BEGIN { use Log::Log4perl::Warn::Multiple::EasyInit; }
Have you ever found yourself scratching your head wondering why your Log::Log4perl output isn't going to the file(s) you expected?
Often the culprit is a call to easy_init() somewhere in the landscape of modules being used.
easy_init()
You could grep-hunt for the causes, or you could get your scripts and modules to keep an eye out for you.
This module is experimental, and possible jsut mental
This script uses the test libraries for the module:
#!/usr/bin/env perl use strict; use warnings; use FindBin::libs; use lib "${FindBin::Bin}/../t/lib"; BEGIN { use Log::Log4perl::Warn::Multiple::EasyInit; } use foo; use bar; use baz; use quux;
Slightly reformatted for readability:
Log::Log4perl already initialised with easy_init() [at /tmp/example/script/../t/lib/foo.pm, line 6] at /tmp/example/script/../t/lib/bar.pm line 6 Log::Log4perl already initialised with easy_init() [at /tmp/example/script/../t/lib/foo.pm, line 6] at /tmp/example/script/../t/lib/quux.pm line 6 Log::Log4perl already initialised with easy_init() [at /tmp/example/script/../t/lib/foo.pm, line 6] at /tmp/example/script/../t/lib/baz.pm line 8
Chisel Wright <chisel@chizography.net>
This software is copyright (c) 2011 by Chisel Wright.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.
To install Log::Log4perl::Warn::Multiple::EasyInit, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Log::Log4perl::Warn::Multiple::EasyInit
CPAN shell
perl -MCPAN -e shell install Log::Log4perl::Warn::Multiple::EasyInit
For more information on module installation, please visit the detailed CPAN module installation guide.