| line |
true |
false |
branch |
|
49
|
4 |
12 |
if (defined $_[0] and $_[0] =~ /^(?:no_plan|skip_all|tests)$/) { } |
|
54
|
2 |
2 |
if ($_[0] eq 'tests') { } |
|
|
1 |
1 |
elsif ($_[0] eq 'skip_all') { } |
|
81
|
5 |
21 |
unless $perl |
|
87
|
0 |
26 |
unless (defined $path) |
|
90
|
0 |
26 |
if ("File::Spec::Unix"->file_name_is_absolute($path)) |
|
112
|
4 |
4 |
$? ? : |
|
113
|
4 |
4 |
$? ? : |
|
120
|
4 |
4 |
unless $ok |
|
121
|
0 |
8 |
if $error |
|
122
|
1 |
7 |
if $signal |
|
135
|
26 |
0 |
if (-w 'File::Spec'->curdir) { } |
|
144
|
0 |
26 |
unless open $fh, ">", $filename |
|
151
|
0 |
26 |
unless print $fh "unshift \@INC, ", join(",", map({'"' . quotemeta($_) . '"';} grep({not ref $_;} @INC))) |
|
153
|
0 |
26 |
unless close $fh |
|
172
|
12 |
6 |
unless $_[0] |
|
181
|
2 |
1 |
unless defined $testname |
|
183
|
1 |
2 |
unless eval {
do {
defined $opt->{'exit'}
}
} |
|
193
|
4 |
32 |
if ($opt->{'stdin'}) |
|
197
|
2 |
2 |
if (ref $opt->{'stdin'} eq 'SCALAR') { } |
|
|
2 |
0 |
elsif (ref $opt->{'stdin'} eq '') { } |
|
204
|
0 |
2 |
unless open $tmp, ">", $filename |
|
218
|
0 |
4 |
unless open $fh, "<", $filename |
|
219
|
0 |
4 |
unless "STDIN"->fdopen($fh, "r") |
|
225
|
18 |
18 |
$? ? : |
|
226
|
18 |
18 |
$? ? : |
|
231
|
12 |
24 |
unless $ok |
|
232
|
0 |
36 |
if $error |
|
233
|
2 |
34 |
unless $signal == $opt->{'signal'} |
|
243
|
20 |
16 |
$regex ? : |
|
244
|
16 |
20 |
if $not |
|
248
|
16 |
20 |
unless ($ok) |
|
251
|
8 |
8 |
$not ? : |
|
252
|
8 |
8 |
if ($regex) { } |
|
340
|
11 |
7 |
unless $_[0] |
|
349
|
4 |
2 |
unless defined $testname |
|
351
|
1 |
5 |
unless eval {
do {
defined $opt->{'exit'}
}
} |
|
428
|
26 |
29 |
if (defined &_STRING($in)) |
|
431
|
29 |
0 |
if (&_ARRAY($in)) |
|
432
|
29 |
0 |
unless (scalar grep({not defined &_STRING($_);} @$in)) |
|
445
|
24 |
2 |
if (open $fh, "<", $script) |
|
450
|
2 |
24 |
grep(/^-.*T/, split(/\s+/, $first_line, 0)) ? : |
|
459
|
20 |
17 |
ref $_[0][0] eq 'HASH' ? : |
|
461
|
28 |
9 |
unless defined $options{'exit'} |
|
462
|
35 |
2 |
unless defined $options{'signal'} |
|
465
|
35 |
2 |
unless defined $options{'stdout'} |
|
466
|
35 |
2 |
unless defined $options{'stderr'} |
|
468
|
3 |
34 |
if (defined $options{'interpreter_options'}) { } |
|
470
|
1 |
2 |
unless $permit_interpreter_options |
|
471
|
1 |
1 |
unless (ref $options{'interpreter_options'} eq "ARRAY") |
|
486
|
29 |
0 |
ref $_[0] eq 'ARRAY' && @{$_[0];} ? : |
|
490
|
92 |
29 |
defined $_[0] && !ref($_[0]) && length $_[0] ? : |