package Bar;

use Init;
use Log::Log4perl qw(get_logger);

sub new {
    my $logger = get_logger();
    $logger->warn("Creating Bar");
    return bless { logger => $logger }, shift;
}

sub bar {
    my $self = shift;
    $self->{logger}->warn("Baring");
}

1;