| line |
true |
false |
branch |
|
66
|
3 |
1 |
if ($pm_ok and $pl_ok) |
|
89
|
10 |
0 |
$testok ? : |
|
113
|
2 |
1 |
$testok ? : |
|
133
|
5 |
77 |
if (@_ eq 2) |
|
158
|
7 |
5 |
@dirs ? : |
|
162
|
19 |
12 |
if ($self->_perl_module($file)) |
|
188
|
8 |
4 |
@dirs ? : |
|
192
|
12 |
8 |
if ($self->_perl_script($file)) |
|
309
|
0 |
24 |
unless my $pid = IPC::Open3::open3(0, $stdout, $stderr, $cmd) |
|
314
|
24 |
24 |
if ($handle) |
|
322
|
21 |
3 |
$? == 0 ? : |
|
336
|
103 |
51 |
if (-f $fname) |
|
337
|
88 |
15 |
if (not $fname =~ /CVS|\.svn|\.git/) |
|
345
|
11 |
18 |
if (-d $item) |
|
357
|
2 |
24 |
unless (-f $file) |
|
358
|
0 |
2 |
if $self->verbose |
|
365
|
0 |
24 |
if ($self->verbose) |
|
369
|
17 |
7 |
if ($output and !defined($self->verbose) || $self->verbose != 0) |
|
370
|
1 |
16 |
if (not $compiles or $self->verbose) |
|
385
|
9 |
0 |
-e 'blib' ? : |
|
388
|
5 |
8 |
if (-e $location) |
|
399
|
0 |
35 |
unless open my $f, "<", $file |
|
401
|
11 |
24 |
if (defined $line and $line =~ /^#!/) |
|
412
|
5 |
22 |
if ($shebang =~ m[^#!\s*[/\w]+\s+-\w*([tT])]) |
|
423
|
12 |
12 |
if ($file =~ /\.p(?:l|sgi)$/i) |
|
428
|
6 |
6 |
if ($file =~ /(?:^[^.]+$)/) |
|
430
|
2 |
4 |
if ($shebang =~ /perl/) |
|
440
|
20 |
15 |
if ($file =~ /\.pm$/) |