Branch Coverage

blib/lib/Log/LogMethods.pm
Criterion Covered Total %
branch 39 72 54.1


line true false branch
155 26 3 if (defined $self->logger) { }
156 10 16 if (&looks_like_number($level))
203 0 2 unless (defined $logger)
204 0 0 unless exists $self->{'logger'}
208 2 0 if ($logger->DOES('Log::Log4perl::Logger'))
210 0 2 unless defined $class
215 1 1 if ($cat ne $class)
253 1 0 if $self->can('log_header')
254 3 0 defined $_ ? :
1 0 if $self->log_to_log4perl('ERROR', $self->LOOK_BACK_DEPTH, @args)
258 0 0 unless $log
267 0 0 unless $self->logger
434 0 60 unless exists $LEVEL_MAP{$level} and $type =~ /^(?:BENCHMARK|RESULT)$/su
435 0 60 if 'Log::LogMethods'->can($name)
473 0 0 if (wantarray) { }
475 0 0 if ($#{$result;} == 0)
485 0 0 wantarray ? :
491 0 20 if $@
528 0 30 if (wantarray) { }
530 0 0 if ($#{$result;} == 0)
545 0 30 wantarray ? :
551 0 40 if $@
580 30 0 if (XXX)
581 30 0 if ($result->DOES('Data::Result'))
582 15 15 unless $result->is_true
613 2 0 unless (defined $hash->{'package'})
624 25 127 unless defined $hash->{'package'}
647 0 121 unless defined $log
650 39 82 if $self->can('log_header')
652 0 121 unless defined $value
655 87 34 if (XXX) { }
664 39 82 if $self->can('log_header')
668 121 0 if (exists $LEVEL_MAP{$level}) { }
701 4 28 $name eq 'WARN' ? :
706 0 8 unless &looks_like_number($level)
728 4 28 $name eq 'WARN' ? :