| line |
true |
false |
branch |
|
105
|
0 |
0 |
if (@fileparts > 1)
|
|
110
|
0 |
0 |
if (open my $fh, '>', $file)
|
|
112
|
0 |
0 |
unless close $fh
|
|
120
|
0 |
0 |
if ($err)
|
|
144
|
0 |
0 |
unless -f $_
|
|
148
|
0 |
0 |
unless $fileroot
|
|
151
|
0 |
0 |
if (@pathparts < 2)
|
|
158
|
0 |
0 |
if $remaining_path[0] eq 't'
|
|
159
|
0 |
0 |
if $remaining_path[0] eq 'Perl'
|
|
160
|
0 |
0 |
if $remaining_path[0] eq 'ToPerl6'
|
|
164
|
0 |
0 |
if (my $prerequisites = $globals->{'prerequisites'})
|
|
166
|
0 |
0 |
unless eval "require $prerequisite; 1"
|
|
172
|
0 |
0 |
if ($include_extras) { }
|
|
206
|
0 |
0 |
-e 'blib' ? :
|
|
214
|
0 |
0 |
if -z $test_file
|
|
218
|
0 |
0 |
unless open my $handle, '<', $test_file
|
|
224
|
0 |
0 |
if (my($key, $value) = $line =~ /\A [#][#] [ ] global [ ] (\S+) (?:\s+(.+))? /msx)
|
|
228
|
0 |
0 |
unless $key
|
|
229
|
0 |
0 |
unless ($valid_keys{$key})
|
|
233
|
0 |
0 |
if ($key eq 'prerequisites')
|
|
239
|
0 |
0 |
unless close $handle
|
|
252
|
0 |
0 |
if -z $test_file
|
|
254
|
0 |
0 |
unless open my $fh, '<', $test_file
|
|
270
|
0 |
0 |
if ($inheader) { }
|
|
|
0 |
0 |
elsif ($subtest) { }
|
|
|
0 |
0 |
elsif (@subtests) { }
|
|
271
|
0 |
0 |
unless $line =~ /\A [#]/msx
|
|
273
|
0 |
0 |
unless $key
|
|
274
|
0 |
0 |
if $key eq 'cut'
|
|
275
|
0 |
0 |
unless ($valid_keys{$key})
|
|
279
|
0 |
0 |
if ($key eq 'name')
|
|
280
|
0 |
0 |
if ($subtest)
|
|
288
|
0 |
0 |
if ($incode)
|
|
298
|
0 |
0 |
unless $cut_in_code
|
|
305
|
0 |
0 |
unless close $fh
|
|
306
|
0 |
0 |
if ($subtest)
|
|
307
|
0 |
0 |
if ($incode) { }
|
|
324
|
0 |
0 |
if (/^#-->/) { }
|
|
|
0 |
0 |
elsif ($original_done) { }
|
|
341
|
0 |
0 |
if ($subtest->{'code'}) { }
|
|
349
|
0 |
0 |
unless (defined $subtest->{'failures'})
|
|
352
|
0 |
0 |
if ($subtest->{'parms'}) { }
|
|
354
|
0 |
0 |
if ($Perl::ToPerl6::TestUtils::EVAL_ERROR)
|
|
359
|
0 |
0 |
if ('HASH' ne ref $subtest->{'parms'})
|
|
367
|
0 |
0 |
if (defined $subtest->{'error'})
|
|
368
|
0 |
0 |
if ($subtest->{'error'} =~ m[ \A / (.*) / \z ]msx)
|
|
370
|
0 |
0 |
if ($Perl::ToPerl6::TestUtils::EVAL_ERROR)
|