Branch Coverage

blib/lib/Log/WarnDie.pm
Criterion Covered Total %
branch 12 60 20.0


line true false branch
122 0 1 if ($FILTER)
123 0 0 unless &$FILTER(@_)
125 1 0 if ($DISPATCHER)
126 0 0 unless $LAST and @$LAST == @_ and join('', @$LAST) eq join('', @_)
130 1 0 if ($Log::WarnDie::STDERR)
152 0 1 if ($FILTER)
153 0 0 unless &$FILTER(@_)
155 1 0 if ($DISPATCHER)
156 0 0 unless $LAST and @$LAST == @_ and join('', @$LAST) eq join('', @_)
160 1 0 if ($Log::WarnDie::STDERR)
216 0 4 unless $Log::WarnDie::STDERR->fdopen(fileno STDERR, 'w')
229 0 0 if ($FILTER)
230 0 0 unless (&$FILTER(@_))
231 0 0 $WARN ? :
235 0 0 if ($DISPATCHER)
237 0 0 if (ref($DISPATCHER) =~ /^Log::Log4perl/) { }
243 0 0 $WARN ? :
258 0 0 if ($DISPATCHER and not $_[0] =~ /^S_IFFIFO is not a valid Fcntl macro/)
259 0 0 if ($FILTER)
260 0 0 unless (&$FILTER(@_))
261 0 0 if ($DIE) { }
264 0 0 unless defined $^S and $^S == 0
270 0 0 if (ref($DISPATCHER) =~ /^Log::Log4perl/) { }
278 0 0 if ($DIE) { }
281 0 0 unless defined $^S and $^S == 0
316 3 1 unless @_ > 1
325 1 0 if ($DISPATCHER)
326 1 0 if ($DISPATCHER->isa('Log::Dispatch'))
329 1 0 if (my $outputs = $Log::WarnDie::DISPATCHER->{'outputs'})
352 0 0 unless @_ > 1