Branch Coverage

File:blib/lib/Log/WarnDie.pm
Coverage:48.5%

line%coveragebranch
14050TFif $IN_LOG
142100TFif ($FILTER)
14350TFif &$FILTER(@_) == 0
145100TFif ($DISPATCHER)
14850TFunless $LAST and @$LAST == @_ and join("", @$LAST) eq join("", @_)
15150TFif ($Log::WarnDie::STDERR)
17250TFif $IN_LOG
17650TFif scalar @args == 0
1770TFif ($FILTER)
1780TFif &$FILTER(sprintf($format, @args)) == 0
1800TFif ($DISPATCHER)
1820TFunless $LAST and @$LAST == @args and join("", @$LAST) eq join("", @args)
1860TFif ($Log::WarnDie::STDERR)
24250TFunless $Log::WarnDie::STDERR->fdopen(fileno STDERR, "w")
254100TFif ($FILTER)
255100TFif (&$FILTER(@_) == 0)
26150TFif (defined $^V and $^V ge "v5.14.0")
26250TFif (${^GLOBAL_PHASE} eq "DESTRUCT")
267100TFif ($DISPATCHER)
26950TFif (ref($DISPATCHER) =~ /^Log::Log4perl/) { }
27550TF$WARN ? :
28750TFif ($DISPATCHER)
28850TFif ($FILTER)
2890TFif (&$FILTER(@_) == 0)
2900TFif ($DIE) { }
2940TFunless defined $^S and $^S == 0
30150TFif (ref($DISPATCHER) =~ /^Log::Log4perl/) { }
30950TFif ($DIE) { }
31250TFunless defined $^S and $^S == 0
345100TFif scalar @_ <= 1
354100TFif ($DISPATCHER)
35550TFif ($DISPATCHER->isa("Log::Dispatch"))
35850TFif (my $outputs = $Log::WarnDie::DISPATCHER->{'outputs'})
38150TFif scalar @_ <= 1