Branch Coverage

blib/lib/Test/Log/Log4perl.pm
Criterion Covered Total %
branch 32 40 80.0


line true false branch
127 0 0 if (ref $_ eq 'ARRAY') { }
164 8 0 if ($priority =~ /\D/)
166 3 5 if (lc $priority eq 'everything') { }
2 3 elsif (lc $priority eq 'nothing') { }
189 0 26 if ($args{'ignore_everything'})
191 0 26 if ($args{'ignore_nothing'})
193 3 23 if (exists $args{'ignore_priority'})
220 2 28 ref $_[0] ? :
268 1 29 unless ($expected)
281 9 20 if (%wrong)
287 15 12 if ($wrong{$thingy})
290 1 14 if (ref $$expected{$thingy} and ref $$expected{$thingy} eq 'Regexp') { }
304 1 13 if (@expected)
326 87 8 unless ($ref)
330 4 4 if (ref $expected eq 'Regexp')
334 1 3 unless (blessed $expected)
340 2 1 if (defined &overload::Overloaded and overload::Overloaded($expected))
377 0 0 if $ENV{'NO_SUPPRESS_LOGGING'}
468 5 0 if $_[0]->interception_class->ended
506 30 46 if ($priority <= ($temp{'ignore_priority'} || 0) or $priority <= ($perm{'ignore_priority'} || 0))