Module id = Log::Log4perl  INST_VERSION 0.41

##</code><code>##

my $log = MyLogger::->new("apache");
$log->fatal("This should be in the APACHE log");
my $retval = database::do_some_logging();
$log->fatal("This should be in the APACHE log");

##</code><code>##

my $log = MyLogger::->new("database");
sub do_some_logging { $log->warn("This should appear in DATABASE log."); }

##</code><code>##

[empty]

##</code><code>##

FATAL> This should be in the APACHE log
WARN>  This should appear in DATABASE log.
FATAL> This should be in the APACHE log