Branch Coverage

blib/lib/Log/WarnDie.pm
Criterion Covered Total %
branch 34 68 50.0


line true false branch
140 0 6 if $IN_LOG
142 2 4 if ($FILTER)
143 0 2 if &$FILTER(@_) == 0
145 4 2 if ($DISPATCHER)
148 0 3 unless $LAST and @$LAST == @_ and join("", @$LAST) eq join("", @_)
151 6 0 if ($Log::WarnDie::STDERR)
172 0 1 if $IN_LOG
176 1 0 if scalar @args == 0
177 0 0 if ($FILTER)
178 0 0 if &$FILTER(sprintf($format, @args)) == 0
180 0 0 if ($DISPATCHER)
182 0 0 unless $LAST and @$LAST == @args and join("", @$LAST) eq join("", @args)
186 0 0 if ($Log::WarnDie::STDERR)
242 0 6 unless $Log::WarnDie::STDERR->fdopen(fileno STDERR, "w")
254 3 3 if ($FILTER)
255 1 2 if (&$FILTER(@_) == 0)
261 5 0 if (defined $^V and $^V ge "v5.14.0")
262 0 5 if (${^GLOBAL_PHASE} eq "DESTRUCT")
267 3 2 if ($DISPATCHER)
269 0 3 if (ref($DISPATCHER) =~ /^Log::Log4perl/) { }
275 0 5 $WARN ? :
287 2 0 if ($DISPATCHER)
288 0 2 if ($FILTER)
289 0 0 if (&$FILTER(@_) == 0)
290 0 0 if ($DIE) { }
294 0 0 unless defined $^S and $^S == 0
301 0 2 if (ref($DISPATCHER) =~ /^Log::Log4perl/) { }
309 0 2 if ($DIE) { }
312 2 0 unless defined $^S and $^S == 0
345 5 5 if scalar @_ <= 1
354 3 2 if ($DISPATCHER)
355 2 1 if ($DISPATCHER->isa("Log::Dispatch"))
358 2 0 if (my $outputs = $Log::WarnDie::DISPATCHER->{'outputs'})
381 0 1 if scalar @_ <= 1