| line |
true |
false |
branch |
|
42
|
0 |
40 |
if ($expected_version ne $Perl::Critic::VERSION)
|
|
110
|
13 |
44 |
if (@fileparts > 1)
|
|
115
|
57 |
0 |
if (open my $fh, ">", $file)
|
|
117
|
0 |
57 |
unless close $fh
|
|
125
|
0 |
57 |
if ($err)
|
|
149
|
27 |
192 |
unless -f $_
|
|
153
|
53 |
139 |
unless $fileroot
|
|
156
|
0 |
139 |
if (@pathparts < 2)
|
|
163
|
0 |
139 |
if (my $prerequisites = $globals->{'prerequisites'})
|
|
165
|
0 |
0 |
unless eval "require $prerequisite; 1"
|
|
171
|
139 |
0 |
if ($include_extras) { }
|
|
206
|
0 |
0 |
-e 'blib' ? :
|
|
214
|
0 |
139 |
if -z $test_file
|
|
218
|
0 |
139 |
unless open my $handle, "<", $test_file
|
|
224
|
0 |
33882 |
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 |
139 |
unless close $handle
|
|
252
|
0 |
139 |
if -z $test_file
|
|
254
|
0 |
139 |
unless open my $fh, "<", $test_file
|
|
270
|
9245 |
24637 |
if ($inheader) { }
|
|
|
24630 |
7 |
elsif ($subtest) { }
|
|
|
0 |
7 |
elsif (@subtests) { }
|
|
271
|
0 |
9245 |
unless $line =~ /\A [#]/msx
|
|
273
|
7 |
9238 |
unless $key
|
|
274
|
2642 |
6596 |
if $key eq "cut"
|
|
275
|
0 |
6596 |
unless ($valid_keys{$key})
|
|
279
|
2642 |
3954 |
if ($key eq "name")
|
|
280
|
2503 |
139 |
if ($subtest)
|
|
288
|
0 |
6596 |
if ($incode)
|
|
298
|
24608 |
22 |
unless $cut_in_code
|
|
305
|
0 |
139 |
unless close $fh
|
|
306
|
139 |
0 |
if ($subtest)
|
|
307
|
139 |
0 |
if ($incode) { }
|
|
321
|
2642 |
0 |
if ($subtest->{'code'}) { }
|
|
327
|
0 |
2642 |
unless (defined $subtest->{'failures'})
|
|
330
|
1257 |
1385 |
if ($subtest->{'parms'}) { }
|
|
332
|
0 |
1257 |
if ($Perl::Critic::TestUtils::EVAL_ERROR)
|
|
337
|
0 |
1257 |
if ("HASH" ne ref $subtest->{'parms'})
|
|
345
|
2 |
2640 |
if (defined $subtest->{'error'})
|
|
346
|
2 |
0 |
if ($subtest->{'error'} =~ m[ \A / (.*) / \z ]msx)
|
|
348
|
0 |
2 |
if ($Perl::Critic::TestUtils::EVAL_ERROR)
|