in reply to log4perl in module appending to callers log file
this produces following output:use strict; use warnings; use Log::Log4perl; my $logging_level = 'DEBUG'; my $conf = q( + log4perl.rootLogger = ).$logging_level.q(, logApp log4perl.appender.logApp = Log::Log4perl::Appender::File + log4perl.appender.logApp.mode = append log4perl.appender.logApp.filename = 917173_test.log + log4perl.appender.logApp.layout = Log::Log4perl::Layout::P +atternLayout log4perl.appender.logApp.layout.ConversionPattern = %m % +n ); Log::Log4perl->init( \$conf ); + my $logger = Log::Log4perl->get_logger(); $logger->info("outer"); testPackage::foo(); $logger->info("outer"); package testPackage; use Log::Log4perl qw(get_logger); sub foo { my $logger = Log::Log4perl->get_logger(); # IF I PUT testLog IN T +HE QUOTES THEN I'M GETTING THE blah IN THE CALLERS LOGS FILE $logger->info("inner"); } 1;
outer inner outer
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: log4perl in module appending to callers log file
by GB (Initiate) on Jul 28, 2011 at 14:49 UTC | |
by wwe (Friar) on Aug 02, 2011 at 09:29 UTC |