| line |
true |
false |
branch |
|
16
|
0 |
1 |
if $] < "5.006" |
|
21
|
0 |
0 |
if (exists $INC{'Fake/Our.pm'}) { } |
|
55
|
0 |
0 |
if (not exists $INC{'Modern/Open.pm'}) |
|
75
|
0 |
0 |
if ($seen_semicolon) |
|
78
|
0 |
0 |
if ($proto =~ s/^\s*\\([\@%\$\&])//) |
|
82
|
0 |
0 |
if ($proto =~ s/^\s*([*\$&])//) |
|
86
|
0 |
0 |
if ($proto =~ s/^\s*(;\s*)?\@//) |
|
90
|
0 |
0 |
if ($proto =~ s/^\s*;//) |
|
99
|
0 |
0 |
if (@prototype == 1) { } |
|
130
|
0 |
0 |
if ($@) |
|
133
|
0 |
0 |
unless (defined $proto) |
|
148
|
0 |
0 |
if $@ |
|
172
|
0 |
0 |
if ($_[0] =~ /^Use of reserved word "our" is deprecated at / and exists $INC{'Fake/Our.pm'}) { } |
|
|
0 |
0 |
elsif ($_[0] =~ /Name "main::[A-Za-z_][A-Za-z_0-9]*" used only once:/) { } |
|
178
|
0 |
0 |
if ($] < 5.012) { } |
|
193
|
0 |
0 |
if defined $^E |
|
204
|
0 |
0 |
if $package eq "Strict::Perl" |
|
205
|
0 |
0 |
if $package eq "Carp" |
|
208
|
0 |
0 |
if (open SCRIPT, $filename) |
|
211
|
0 |
0 |
if $line - 2 >= 1 |
|
212
|
0 |
0 |
if $line - 1 >= 1 |
|
213
|
0 |
0 |
if defined $script[$line + 0] |
|
214
|
0 |
0 |
if defined $script[$line + 1] |
|
215
|
0 |
0 |
if defined $script[$line + 2] |
|
254
|
0 |
4 |
if (exists $INC{$module}) |
|
263
|
0 |
0 |
if ($version != $Strict::Perl::VERSION) |
|
274
|
0 |
0 |
unless ("/root/.cpan/build/Strict-Perl-2023.03-0/t/../lib/Strict/Perl.pm" =~ m( \b Strict[/\\]Perl\.pm \z)x) |
|
280
|
0 |
0 |
unless ($Strict::Perl::VERSION_called) |
|
292
|
0 |
0 |
if ($] >= "5.010001") |