| Subject: | Missing interceptors for $log->trace(...) |
I'm trying to ensure my tracepoints are being logged properly. This doesn't
quite work.
To work around this for now, I have the following code in my .t file:
sub Test::Log::Log4perl::trace { my $class = shift; $class-
Show quoted text
>_log_at_level(trace => @_) }
sub Log::Log4perl::Logger::Interception::trace { my $level_int =
Log::Log4perl::Level::to_priority('TRACE'); my $self = shift; $self-
Show quoted text>log($level_int, @_) }
sub Log::Log4perl::Logger::Interception::is_trace { 1 }
It could be done much more simply in Test::Log::Log4perl.