partial content of MyApp.pm

MyApp.pm

package MyApp;

...

use Catalyst qw/
    ConfigLoader
    Static::Simple

    Authentication
    Authorization::Roles

    Session
    Session::Store::DBI
    Session::State::Cookie

    StatusMessage
/;

extends 'Catalyst';

...

my $l4pconf = <<EOF;
log4perl.rootLogger=DEBUG,Screen
log4perl.appender.Screen = Log::Log4perl::Appender::Screen
log4perl.appender.Screen.stderr = 0
log4perl.appender.Screen.layout=Log::Log4perl::Layout::PatternLayout
log4perl.appender.Screen.layout.ConversionPattern=[%d{yyyy-MM-dd HH:mm:ss}] %m%n
EOF

# $c->log is handled by Log4Perl so if catalyst debug mode isn't on,
# we need to adjust the config used to make Log4Perl only log INFO and above.
unless (__PACKAGE__->debug) {
    warn "Switching to INFO log only :" . __PACKAGE__->debug . ":";
    $l4pconf =~ s/DEBUG/INFO/;
}
__PACKAGE__->log( Log::Log4perl::Catalyst->new(\$l4pconf) );

....
  
# Start the application
__PACKAGE__->setup();

__PACKAGE__->log->levels( qw/info warn error fatal/ ) unless __PACKAGE__->debug;