Branch Coverage

blib/lib/Log/LogMethods.pm
Criterion Covered Total %
branch 40 74 54.0


line true false branch
156 26 3 if (defined $self->logger) { }
157 10 16 if (&looks_like_number($level))
210 0 2 unless (defined $logger)
211 0 0 unless exists $self->{'logger'}
214 0 2 if $SKIP_TRIGGER
216 2 0 if ($logger->DOES("Log::Log4perl::Logger"))
218 0 2 unless defined $class
223 1 1 if ($cat ne $class)
261 1 0 if $self->can("log_header")
262 3 0 defined $_ ? :
1 0 if $self->log_to_log4perl("ERROR", $self->LOOK_BACK_DEPTH, @args)
266 0 0 unless $log
275 0 0 unless $self->logger
442 0 60 unless exists $LEVEL_MAP{$level} and $type =~ /^(?:BENCHMARK|RESULT)$/su
443 0 60 if "Log::LogMethods"->can($name)
481 0 0 if (wantarray) { }
483 0 0 if ($#{$result;} == 0)
493 0 0 wantarray ? :
499 0 20 if $@
536 0 30 if (wantarray) { }
538 0 0 if ($#{$result;} == 0)
553 0 30 wantarray ? :
559 0 40 if $@
588 30 0 if (XXX)
589 30 0 if ($result->DOES("Data::Result"))
590 15 15 unless $result->is_true
621 2 0 unless (defined $hash->{'package'})
632 25 127 unless defined $hash->{'package'}
655 0 121 unless defined $log
658 39 82 if $self->can("log_header")
660 0 121 unless defined $value
663 87 34 if (XXX) { }
672 39 82 if $self->can("log_header")
676 121 0 if (exists $LEVEL_MAP{$level}) { }
709 4 28 $name eq 'WARN' ? :
714 0 8 unless &looks_like_number($level)
736 4 28 $name eq 'WARN' ? :