line |
true |
false |
branch |
43
|
0 |
39 |
if ($expected_version ne $Perl::Critic::VERSION)
|
111
|
0 |
27 |
if (@fileparts > 1)
|
116
|
27 |
0 |
if (open my $fh, ">", $file)
|
118
|
0 |
27 |
unless close $fh
|
126
|
0 |
27 |
if ($err)
|
150
|
0 |
0 |
unless -f $_
|
154
|
0 |
0 |
unless $fileroot
|
157
|
0 |
0 |
if (@pathparts < 2)
|
164
|
0 |
0 |
if (my $prerequisites = $globals->{'prerequisites'})
|
166
|
0 |
0 |
unless eval "require $prerequisite; 1"
|
172
|
0 |
0 |
if ($include_extras) { }
|
207
|
0 |
0 |
-e 'blib' ? :
|
215
|
0 |
0 |
if -z $test_file
|
219
|
0 |
0 |
unless open my $handle, "<", $test_file
|
225
|
0 |
0 |
if (my($key, $value) = $line =~ /\A [#][#] [ ] global [ ] (\S+) (?:\s+(.+))? /msx)
|
229
|
0 |
0 |
unless $key
|
230
|
0 |
0 |
unless ($valid_keys{$key})
|
234
|
0 |
0 |
if ($key eq "prerequisites")
|
240
|
0 |
0 |
unless close $handle
|
253
|
0 |
0 |
if -z $test_file
|
255
|
0 |
0 |
unless open my $fh, "<", $test_file
|
271
|
0 |
0 |
if ($inheader) { }
|
|
0 |
0 |
elsif ($subtest) { }
|
|
0 |
0 |
elsif (@subtests) { }
|
272
|
0 |
0 |
unless $line =~ /\A [#]/msx
|
274
|
0 |
0 |
unless $key
|
275
|
0 |
0 |
if $key eq "cut"
|
276
|
0 |
0 |
unless ($valid_keys{$key})
|
280
|
0 |
0 |
if ($key eq "name")
|
281
|
0 |
0 |
if ($subtest)
|
289
|
0 |
0 |
if ($incode)
|
299
|
0 |
0 |
unless $cut_in_code
|
306
|
0 |
0 |
unless close $fh
|
307
|
0 |
0 |
if ($subtest)
|
308
|
0 |
0 |
if ($incode) { }
|
322
|
0 |
0 |
if ($subtest->{'code'}) { }
|
328
|
0 |
0 |
unless (defined $subtest->{'failures'})
|
331
|
0 |
0 |
if ($subtest->{'parms'}) { }
|
333
|
0 |
0 |
if ($Perl::Critic::TestUtils::EVAL_ERROR)
|
338
|
0 |
0 |
if ("HASH" ne ref $subtest->{'parms'})
|
346
|
0 |
0 |
if (defined $subtest->{'error'})
|
347
|
0 |
0 |
if ($subtest->{'error'} =~ m[ \A / (.*) / \z ]msx)
|
349
|
0 |
0 |
if ($Perl::Critic::TestUtils::EVAL_ERROR)
|