Branch Coverage

blib/lib/Log/LogMethods.pm
Criterion Covered Total %
branch 41 78 52.5


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
447 0 60 unless @_
449 60 0 if (my $root = $self->SUPER::can('MODIFY_CODE_ATTRIBUTES')) { }
450 60 0 if ($root eq \&Log::LogMethods::MODIFY_CODE_ATTRIBUTES) { }
456 0 0 if (exists $LEVEL_MAP{$level} and $type =~ /^(?:BENCHMARK|RESULT)$/su) { }
477 0 60 unless exists $LEVEL_MAP{$level} and $type =~ /^(?:BENCHMARK|RESULT)$/su
484 0 60 if (my $nc = \&{$tn;} ne $code)
521 0 0 if (wantarray) { }
523 0 0 if ($#{$result;} == 0)
533 0 0 wantarray ? :
574 0 30 if (wantarray) { }
576 0 0 if ($#{$result;} == 0)
591 0 30 wantarray ? :
624 30 0 if (Ref::Util::XS::is_blessed_hashref($result))
625 30 0 if ($result->DOES("Data::Result"))
626 15 15 unless $result->is_true
657 2 0 unless (defined $hash->{'package'})
668 25 127 unless defined $hash->{'package'}
691 0 121 unless defined $log
694 39 82 if $self->can("log_header")
696 0 121 unless defined $value
699 87 34 if (Ref::Util::XS::is_plain_hashref($trace)) { }
708 39 82 if $self->can("log_header")
712 121 0 if (exists $LEVEL_MAP{$level}) { }
745 4 28 $name eq 'WARN' ? :
750 0 8 unless &looks_like_number($level)
772 4 28 $name eq 'WARN' ? :