package MyLogger; # Wrapper class for Log::Log4perl.

use strict;
use warnings;
use Log::Log4perl;

sub get_logger { # initialize and return MyLogger object
  my $class = shift;
  my $module_name = shift;

  unless (Log::Log4perl->initialized) {
    Log::Log4perl->init("/opt/etc/log4perl.conf");
    $Log::Log4perl::caller_depth = 1;
  }
  return Log::Log4perl->get_logger($module_name);
}

##</code><code>##

my $log = MyLogger->get_logger('database');
$log->debug('database blah blah');

$log = MyLogger->get_logger('apache');
$log->debug('apache blah blah');