Branch Coverage

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


line true false branch
153 29 3 if (defined $self->logger) { }
154 11 18 if (&looks_like_number($level))
201 0 2 unless (defined $logger)
202 0 0 unless exists $self->{'logger'}
206 2 0 if ($logger->DOES('Log::Log4perl::Logger'))
208 0 2 unless defined $class
213 1 1 if ($cat ne $class)
251 1 0 if $self->can('log_header')
252 3 0 defined $_ ? :
1 0 if $self->log_to_log4perl('ERROR', $self->LOOK_BACK_DEPTH, @args)
256 0 0 unless $log
265 0 0 unless $self->logger
432 0 60 unless exists $LEVEL_MAP{$level} and $type =~ /^(?:BENCHMARK|RESULT)$/su
433 0 60 if 'Log::LogMethods'->can($name)
439 0 60 if $self->can('SUPER::MODIFY_CODE_ATTRIBUTES')
471 0 0 if (wantarray) { }
473 0 0 if ($#{$result;} == 0)
483 0 0 wantarray ? :
489 0 20 if $@
525 0 30 if (wantarray) { }
527 0 0 if ($#{$result;} == 0)
542 0 30 wantarray ? :
548 0 40 if $@
576 30 0 if (XXX)
577 30 0 if ($result->DOES('Data::Result'))
578 15 15 unless $result->is_true
609 2 0 unless (defined $hash->{'package'})
620 26 128 unless defined $hash->{'package'}
643 0 122 unless defined $log
646 39 83 if $self->can('log_header')
648 0 122 unless defined $value
651 88 34 if (XXX) { }
660 39 83 if $self->can('log_header')
664 122 0 if (exists $LEVEL_MAP{$level}) { }
697 3 24 $name eq 'WARN' ? :
702 0 9 unless &looks_like_number($level)
724 3 24 $name eq 'WARN' ? :