{
  package MyApp;
  use Moose;
  use Moose::Util qw( apply_all_roles );
  with 'MooseX::Log::Log4perl';

  sub BUILD {
    my $s = shift;
    # apply_all_roles($s, 'BarCollector');  # if you uncomment this line, logging doesn't work anymore
  }
  sub print_something {
    my $self = shift;
    $self->log->info('This does not print when apply_all_roles is used.');
  }

}

{
  package BarCollector;
  use Moose::Role

  # does nothing 
}

#! /usr/bin/env perl

use File::HomeDir;
use Log::Log4perl;
BEGIN { Log::Log4perl->init_once(File::HomeDir->my_home . '/test.cfg') };
use MyApp;


my $app = MyApp->new();

$app->print_something;

__END__
# test.cfg config file:
log4perl.logger.MyApp=TRACE, LOG

log4perl.appender.LOG=Log::Log4perl::Appender::ScreenColoredLevels

log4perl.appender.LOG.layout=PatternLayout
log4perl.appender.LOG.layout.ConversionPattern=%c - %m%n