package MyLog; use strict; use warnings FATAL => qw( all ); use Carp::Assert; use Data::Dumper; use base qw(Exporter); use vars qw(@EXPORT); @EXPORT = qw(get_logger $INFO $DEBUG $WARN $ERROR $FATAL); use Log::Log4perl qw(:levels); BEGIN { Log::Log4perl->init('/home/foo/log4perl-conf.txt'); } sub get_logger { Log::Log4perl::get_logger(@_); } 1;