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