| line |
true |
false |
branch |
|
161
|
38 |
1 |
if ($minlength >= 0) { } |
|
176
|
22 |
61 |
$file_index == 0 ? : |
|
187
|
77 |
6 |
if ($units eq 'lines') { } |
|
188
|
6 |
71 |
$upLine < 2 ? : |
|
222
|
0 |
83 |
unless (defined $fi) |
|
227
|
6 |
77 |
if ('SCALAR' eq ref $files[$fi]) { } |
|
239
|
0 |
6851 |
if 0 == $r |
|
246
|
6848 |
6943 |
if $file > 0 && $fileoffsets[$file - 1] < $offset || $file == 0 and $offset <= $fileoffsets[$file] |
|
254
|
1632 |
5311 |
if ($file > 0 and $fileoffsets[$file - 1] >= $offset) { } |
|
270
|
2 |
6697 |
unless defined $fileindex |
|
272
|
1413 |
5284 |
$fileindex == 0 ? : |
|
277
|
13 |
6684 |
if (0 == $r) |
|
278
|
6 |
7 |
if (defined $rRoundedUp_line) |
|
281
|
6 |
7 |
if (defined $rRoundedDown_line) |
|
286
|
0 |
6684 |
if 0 == $r |
|
290
|
6684 |
33555 |
if ($line > 0 && $$lineoffsets[$line - 1] < $offset || $line == 0 and $offset <= $$lineoffsets[$line]) |
|
296
|
3342 |
3342 |
if (defined $rRoundedDown_line) |
|
297
|
228 |
3093 |
$offset == $$lineoffsets[$line] ? : |
|
|
21 |
3321 |
$line == 0 ? : |
|
302
|
3342 |
3342 |
if (defined $rRoundedUp_line) |
|
303
|
30 |
3312 |
$line == 0 ? : |
|
|
143 |
3199 |
$offset == ($line == 0 ? 0 : $$lineoffsets[$line - 1] + 1) ? : |
|
312
|
15664 |
17891 |
if ($line > 0 and $$lineoffsets[$line - 1] >= $offset) { } |
|
352
|
0 |
35 |
if (-z $file) |
|
358
|
2 |
33 |
if ($code eq '') |
|
378
|
0 |
2 |
unless &build_suffixarray_and_lcp($codetotal) == 0 |
|
380
|
0 |
2 |
if $verbose |
|
405
|
0 |
17479 |
if ($res and defined $ignoreContentFilter) |
|
410
|
3115 |
14364 |
if ($res and 0 <= $minlength) |
|
434
|
0 |
2 |
if $verbose |
|
457
|
0 |
1 |
unless (defined $regexIgnore) |
|
460
|
0 |
1 |
if (defined $regexAccept and ref $regexAccept ne 'Regexp') |
|
463
|
0 |
1 |
if (defined $regexIgnore and ref $regexIgnore ne 'Regexp') |
|
466
|
0 |
1 |
if (defined $ignoreContentFilter and ref $ignoreContentFilter ne 'Regexp') |
|
471
|
0 |
1 |
if (1 == scalar @dirs and not -d $dirs[0]) |
|
479
|
4 |
0 |
if (-f $_ and -s $_ and !defined($regexAccept) || $_ =~ /$regexAccept/o) |
|
482
|
4 |
0 |
if (not defined $regexIgnore && $_ =~ /$regexIgnore/o) |
|
489
|
0 |
1 |
if (0 == scalar @filepaths) |
|
502
|
0 |
35 |
unless open my $infile, '<', $file |