| line |
true |
false |
branch |
|
69
|
0 |
0 |
unless @stat = stat $path |
|
71
|
0 |
0 |
if $_ConfigTag and $_ConfigTag eq $tag |
|
91
|
2 |
44 |
if $attr eq "message" and $partial |
|
93
|
30 |
14 |
if $attr =~ /^(level|time|program|host|file|line|sub|message)$/ |
|
116
|
46 |
26 |
if (ref $expr eq 'ARRAY') { } |
|
129
|
0 |
20 |
if $@ |
|
142
|
14 |
13 |
if ($_KnownLevel{$expr}) { } |
|
|
1 |
12 |
elsif ($expr =~ /^(\w+)(==|!=)$/ and $1 ne 'level') { } |
|
|
10 |
2 |
elsif ($expr =~ /^(\w+)(==|!=|=~|!~|>=?|<=?)(\S+)$/ and $1 ne 'level') { } |
|
144
|
1 |
13 |
if ${$level;} |
|
157
|
4 |
20 |
if ($op eq '=~' or $op eq '!~') { } |
|
|
17 |
3 |
elsif ($op eq '==' or $op eq '!=') { } |
|
160
|
0 |
4 |
if $@ |
|
164
|
15 |
2 |
unless ($value =~ /^-?\d+$/) |
|
165
|
15 |
0 |
$op eq '==' ? : |
|
170
|
0 |
3 |
unless $value =~ /^-?\d+$/ |
|
190
|
4 |
15 |
if $line eq "" or $line =~ /^\#/ |
|
195
|
2 |
11 |
if ($filter =~ /\s(and|or)\s/) { } |
|
208
|
0 |
16 |
if $line eq "" or $line =~ /^\#/ |
|
216
|
12 |
1 |
if ($level) { } |
|
230
|
10 |
0 |
if (@filter) { } |
|
260
|
0 |
0 |
$INC{'threads.pm'} ? : |
|
264
|
0 |
0 |
$info->{'level'} eq 'info' ? : |
|
279
|
0 |
0 |
if ($info->{$attr} =~ m[^[\w\.\-/]*$]) { } |
|
305
|
1 |
17 |
unless (@list) |
|
310
|
3 |
14 |
if (ref $format eq "CODE") |
|
314
|
1 |
13 |
if (ref $format) |
|
318
|
6 |
7 |
unless (@list) |
|
325
|
2 |
5 |
if (ref $arg eq 'SCALAR') { } |
|
|
3 |
2 |
elsif (not ref $arg) { } |
|
328
|
1 |
1 |
unless defined $$info{${$arg;}} |
|
332
|
1 |
2 |
unless defined $arg |
|
361
|
0 |
23 |
if $INC{'threads.pm'} |
|
366
|
9 |
14 |
defined $list[3] ? : |
|
368
|
5 |
18 |
unless &$_MaybeInterestingInfo($info) |
|
374
|
0 |
13 |
unless &$_InterestingInfo($info) |
|
403
|
0 |
0 |
unless $_InterestingLevel{'error'} |
|
404
|
0 |
0 |
if (@args and ref $args[-1] eq 'HASH') { } |
|
420
|
0 |
0 |
unless $_InterestingLevel{'warning'} |
|
421
|
0 |
0 |
if (@args and ref $args[-1] eq 'HASH') { } |
|
437
|
1 |
13 |
unless $_InterestingLevel{'info'} |
|
438
|
1 |
12 |
if (@args and ref $args[-1] eq 'HASH') { } |
|
454
|
0 |
10 |
unless $_InterestingLevel{'debug'} |
|
455
|
2 |
8 |
if (@args and ref $args[-1] eq 'HASH') { } |
|
468
|
0 |
0 |
unless $_InterestingLevel{'trace'} |