Making self-logging modules with Log::Log4perl

Question

Is there a way to use Log::Log4perl to make a smart self-logging module that logs its operations to a file even in the absence of the calling script not initializing Log4per

Answer 1

The short answer is to call Log::Log4perl::initialized(); at some point and if it is false, set up some default logging.

The tricky part is "some point."

You can't do it in BEGIN {}, because then the main script's will stomp your initialisation even though you created unnessary files. You don't want to do it before each call to get_logger() because that is wasteful. So you should do it during the module's initialisation, say sub new or sub init.