| line |
true |
false |
branch |
|
103
|
0 |
0 |
if (@fileparts > 1)
|
|
108
|
0 |
0 |
if (open my $fh, '>', $file)
|
|
110
|
0 |
0 |
unless close $fh
|
|
118
|
0 |
0 |
if ($err)
|
|
142
|
0 |
0 |
unless -f $_
|
|
146
|
0 |
0 |
unless $fileroot
|
|
149
|
0 |
0 |
if (@pathparts < 2)
|
|
156
|
0 |
0 |
if $remaining_path[0] eq 't'
|
|
157
|
0 |
0 |
if $remaining_path[0] eq 'Perl'
|
|
158
|
0 |
0 |
if $remaining_path[0] eq 'ToPerl6'
|
|
162
|
0 |
0 |
if (my $prerequisites = $globals->{'prerequisites'})
|
|
164
|
0 |
0 |
unless eval "require $prerequisite; 1"
|
|
170
|
0 |
0 |
if ($include_extras) { }
|
|
204
|
0 |
0 |
-e 'blib' ? :
|
|
212
|
0 |
0 |
if -z $test_file
|
|
216
|
0 |
0 |
unless open my $handle, '<', $test_file
|
|
222
|
0 |
0 |
if (my($key, $value) = $line =~ /\A [#][#] [ ] global [ ] (\S+) (?:\s+(.+))? /msx)
|
|
226
|
0 |
0 |
unless $key
|
|
227
|
0 |
0 |
unless ($valid_keys{$key})
|
|
231
|
0 |
0 |
if ($key eq 'prerequisites')
|
|
237
|
0 |
0 |
unless close $handle
|
|
250
|
0 |
0 |
if -z $test_file
|
|
252
|
0 |
0 |
unless open my $fh, '<', $test_file
|
|
268
|
0 |
0 |
if ($inheader) { }
|
|
|
0 |
0 |
elsif ($subtest) { }
|
|
|
0 |
0 |
elsif (@subtests) { }
|
|
269
|
0 |
0 |
unless $line =~ /\A [#]/msx
|
|
271
|
0 |
0 |
unless $key
|
|
272
|
0 |
0 |
if $key eq 'cut'
|
|
273
|
0 |
0 |
unless ($valid_keys{$key})
|
|
277
|
0 |
0 |
if ($key eq 'name')
|
|
278
|
0 |
0 |
if ($subtest)
|
|
286
|
0 |
0 |
if ($incode)
|
|
296
|
0 |
0 |
unless $cut_in_code
|
|
303
|
0 |
0 |
unless close $fh
|
|
304
|
0 |
0 |
if ($subtest)
|
|
305
|
0 |
0 |
if ($incode) { }
|
|
322
|
0 |
0 |
if (/^#-->/) { }
|
|
|
0 |
0 |
elsif ($original_done) { }
|
|
339
|
0 |
0 |
if ($subtest->{'code'}) { }
|
|
347
|
0 |
0 |
unless (defined $subtest->{'failures'})
|
|
350
|
0 |
0 |
if ($subtest->{'parms'}) { }
|
|
352
|
0 |
0 |
if ($Perl::ToPerl6::TestUtils::EVAL_ERROR)
|
|
357
|
0 |
0 |
if ('HASH' ne ref $subtest->{'parms'})
|
|
365
|
0 |
0 |
if (defined $subtest->{'error'})
|
|
366
|
0 |
0 |
if ($subtest->{'error'} =~ m[ \A / (.*) / \z ]msx)
|
|
368
|
0 |
0 |
if ($Perl::ToPerl6::TestUtils::EVAL_ERROR)
|