Select Code to Download

Select or download this

.
./logger.conf
...
./subdir/Foo.pm
./subdir/Bar.pm
./subdir/Baz.pm

Select or download this

############################################################
# A simple root logger with a Log::Log4perl::Appender::File
...

log4perl.appender.LOGFILE.layout=PatternLayout
log4perl.appender.LOGFILE.layout.ConversionPattern=[%r] %F %L %c - %m%
+n

Select or download this

package subdir::Foo;
sub test{
...
        $log->debug("Here is a debug message in ". __PACKAGE__ );
}
1;

Select or download this
```
use strict;
use warnings;
...
}
1;
}
```

Select or download this

[1] main.pl 18 MyMain - before gtk
[2466] subdir/Foo.pm 6 MyMain - Here is a debug message in subdir::Foo
[2466] subdir/Bar.pm 6 MyMain - Here is a debug message in subdir::Bar
[2466] subdir/Baz.pm 6 MyMain - Here is a debug message in subdir::Baz
[2467] main.pl 32 MyMain - after get_logger in MyMain ...quit