How would you extend MooseX::Log::Log4perl?

[metaperl]

MooseX::Log::Log4perl is a role. However, the role will not work with Log::Log4Perl being initialized. If moose roles could be subclassed, then you would simply create a local subclass of MooseX::Log::Log4perl and do your Log::Log4perl initiation there. But that is not possible. So somehow you need to do your local initialization and then also use this role, which seems a bit non-encapsulated.

[spazm]

I see what you're saying. The docs for MooseX::Log::Log4perl show a required BEGIN block to initialize Log::Log4perl.

 package MyApp;
 use Moose;
 use Log::Log4perl qw(:easy);

 with 'MooseX::Log::Log4perl';

 BEGIN {
   Log::Log4perl->easy_init();
 }

Should one initialize Log::Log4perl and add the BEGIN block both in the application base class?