package Foo;

use Init; # initializes Log::Log4perl among other things
use Log::Log4perl qw(get_logger);

my $logger = get_logger();

sub new {
    $logger->warn("Creating Foo");
    return bless {}, shift;
}

sub foo { $logger->warn("Fooing") }

1;