| line |
true |
false |
branch |
|
27
|
8 |
0 |
unless ref $f eq 'GLOB' or ref \$f eq 'GLOB' |
|
38
|
8 |
0 |
if (ref $par{'Group'}) { } |
|
43
|
8 |
0 |
if ($file) { } |
|
44
|
0 |
8 |
if (isafh($file)) { } |
|
49
|
0 |
8 |
if ($file =~ /\.gz$/) { } |
|
50
|
0 |
0 |
unless open S, "gzip -cd $file|" |
|
53
|
0 |
8 |
unless open S, "$file" |
|
63
|
5 |
3 |
if $$self{'File'} |
|
72
|
473 |
1042 |
if (ref $group) { } |
|
83
|
468 |
1007 |
if (ref $group) { } |
|
99
|
4 |
402 |
unless $rec |
|
104
|
1089 |
386 |
if (defined $$self{$gname}{$key}) { } |
|
122
|
18 |
22 |
$rever ? : |
|
126
|
0 |
40 |
unless $$self{$group} |
|
128
|
19 |
21 |
if ($list) { } |
|
129
|
17 |
2 |
if (ref $list) { } |
|
143
|
155 |
208 |
if ($key =~ /$;/) { } |
|
146
|
28 |
347 |
if length $key[$_] > $mklen[$_] |
|
152
|
40 |
168 |
if length $key > $mklen |
|
155
|
435 |
0 |
if defined $$val{$_} |
|
159
|
5 |
42 |
$_ > $Logfile::MAXWIDTH ? : |
|
160
|
5 |
35 |
if ($group =~ /$;/) { } |
|
180
|
155 |
146 |
if ($key =~ /$;/) { } |
|
189
|
365 |
0 |
defined $$val{$list} ? : |
|
190
|
365 |
0 |
if ($absolute{$list} > 0) { } |
|
198
|
8 |
293 |
if defined $par{'Top'} and --$par{'Top'} <= 0 |
|
206
|
290 |
734 |
if ($rev) { } |
|
212
|
383 |
641 |
if ($x =~ /[^\d.]|^$/o or $y =~ /[^\d.]|^$/o) { } |
|
237
|
0 |
8 |
if $HaveGetDate = $@ eq '' |
|
238
|
8 |
0 |
unless ($HaveGetDate) |
|
240
|
0 |
8 |
if $HaveDateGetDate = $@ eq '' |
|
241
|
8 |
0 |
unless ($HaveDateGetDate) |
|
253
|
23 |
0 |
if ($date =~ s/19(\d\d)/ /) |
|
|
0 |
402 |
if ($date =~ s[\b(\d+)/(\d+)/(\d+)\b][ ]) { } |
|
|
360 |
42 |
elsif ($date =~ s[\b(\d+)/(\w+)/(\d+)\b][ ]) { } |
|
|
19 |
23 |
elsif ($date =~ s/\b(\d+)\s+(\w+)\s+(\d+)\b/ /) { } |
|
|
23 |
0 |
elsif ($date =~ s/\b$monreg\b(\s+(\d+))?/ /io) { } |
|
|
383 |
19 |
if ($date =~ s/\b(\d+):(\d+)(:(\d+))?/ /) |
|
|
360 |
42 |
if $year > 1900 |
|
|
360 |
42 |
if ($date =~ s/([-+]\d+)/ /) |
|
268
|
402 |
0 |
if ($par{'Date'}) |
|
270
|
0 |
402 |
if ($HaveGetDate) { } |
|
|
0 |
402 |
elsif ($HaveDateGetDate) { } |
|
|
0 |
402 |
elsif ($HaveParseDate) { } |
|
291
|
380 |
22 |
if ($par{'Host'}) |
|
293
|
335 |
45 |
if ($host =~ /[^\d.]/) { } |
|
294
|
206 |
129 |
if ($host =~ /\./) { } |
|
314
|
776 |
8021 |
if $_ eq $ignore |
|
315
|
27 |
7994 |
unless defined $$other{$_} |
|
316
|
387 |
7607 |
unless length $$other{$_} |
|
317
|
3794 |
3813 |
if $$other{$_} =~ /\D/ |