| line |
true |
false |
branch |
|
88
|
10 |
1 |
$testok ? : |
|
112
|
2 |
1 |
$testok ? : |
|
132
|
5 |
85 |
if (@_ eq 2) |
|
157
|
5 |
8 |
unless (@search) |
|
163
|
21 |
12 |
if ($self->_perl_module($file)) |
|
190
|
4 |
9 |
unless (@search) |
|
196
|
12 |
10 |
if ($self->_perl_script($file)) |
|
313
|
0 |
27 |
unless my $pid = IPC::Open3::open3(0, $stdout, $stderr, $cmd) |
|
318
|
27 |
27 |
if ($handle) |
|
326
|
23 |
4 |
$? == 0 ? : |
|
340
|
110 |
51 |
if (-f $fname) |
|
341
|
95 |
15 |
if (not $fname =~ /CVS|\.svn|\.git/) |
|
349
|
11 |
20 |
if (-d $item) |
|
361
|
2 |
27 |
unless (-f $file) |
|
362
|
0 |
2 |
if ($self->verbose) |
|
371
|
0 |
27 |
if ($self->verbose) |
|
375
|
20 |
7 |
if (not defined $self->verbose or $self->verbose != 0) |
|
376
|
2 |
18 |
if (not $compiles or $self->verbose) |
|
391
|
9 |
0 |
-e 'blib' ? : |
|
394
|
5 |
8 |
if (-e $location) |
|
405
|
38 |
1 |
if (open my $f, "<", $file) |
|
407
|
11 |
27 |
if (defined $line and $line =~ /^#!/) |
|
419
|
5 |
25 |
if ($shebang =~ m[^#!\s*[/\w]+\s+-\w*([tT])]) |
|
430
|
12 |
14 |
if ($file =~ /\.p(?:l|sgi)$/i) |
|
435
|
6 |
8 |
if ($file =~ /(?:^[^.]+$)/) |
|
437
|
2 |
4 |
if ($shebang =~ /perl/) |