| line |
true |
false |
branch |
|
30
|
1 |
0 |
unless $hr |
|
34
|
0 |
1 |
if ($hr->{'sys'}) { } |
|
37
|
0 |
0 |
unless $sub |
|
60
|
0 |
0 |
$hr->{'opt'} ? : |
|
|
0 |
1 |
exists $hr->{'opt'} ? : |
|
67
|
0 |
1 |
if %Log::Any:: |
|
68
|
0 |
1 |
if %Log::ger:: |
|
69
|
0 |
1 |
if %Log::Dispatch:: |
|
70
|
0 |
1 |
if %Log::Log4perl:: |
|
97
|
0 |
0 |
if $value eq "" or $value eq 0 |
|
100
|
0 |
0 |
if (/\d/) { } |
|
103
|
0 |
0 |
if $level < 0 |
|
104
|
0 |
0 |
if $level > 8 |
|
109
|
0 |
0 |
unless defined $level |
|
150
|
0 |
0 |
if $value eq "" or $value eq 0 |
|
153
|
0 |
0 |
if (/\d/) { } |
|
156
|
0 |
0 |
if $level < 10 |
|
157
|
0 |
0 |
if $level > 60 |
|
161
|
0 |
0 |
unless defined $level |
|
168
|
0 |
0 |
if (*LEVEL{"CODE"} and $unset) |
|
171
|
0 |
0 |
unless eval "\n require Log::ger::Util;\n Log::ger::Util::set_level(Log::OK::LEVEL);\n 1;\n " |
|
215
|
0 |
0 |
if $value eq "" or $value eq 0 |
|
218
|
0 |
0 |
if (/\d/) { } |
|
221
|
0 |
0 |
if $level < 0 |
|
222
|
0 |
0 |
if $level > 7 |
|
227
|
0 |
0 |
unless defined $level |
|
281
|
0 |
0 |
if $value eq "" or $value eq 0 |
|
285
|
0 |
0 |
if (/\d/) { } |
|
288
|
0 |
0 |
if $index < 0 |
|
289
|
0 |
0 |
if $index > @$levels - 1 |
|
291
|
0 |
0 |
unless grep(($level == $_), @$levels) |
|
297
|
0 |
0 |
unless defined $level |