if ($INC{'Test/More.pm'}) { Log::Any::Adapter->set( 'Test' ); } else { my $opts = $ENV{CATALYST_DEBUG} ? LOG_PID|LOG_PERROR : LOG_PID; Log::Any::Adapter->set( 'Syslog', options => $opts, facility => LOG_LOCAL1 ); }