| line |
true |
false |
branch |
|
20
|
0 |
0 |
if (exists $INC{'Fake/Our.pm'}) { } |
|
54
|
0 |
0 |
if (not exists $INC{'Modern/Open.pm'}) |
|
74
|
0 |
0 |
if ($seen_semicolon) |
|
77
|
0 |
0 |
if ($proto =~ s/^\s*\\([\@%\$\&])//) |
|
81
|
0 |
0 |
if ($proto =~ s/^\s*([*\$&])//) |
|
85
|
0 |
0 |
if ($proto =~ s/^\s*(;\s*)?\@//) |
|
89
|
0 |
0 |
if ($proto =~ s/^\s*;//) |
|
98
|
0 |
0 |
if (@prototype == 1) { } |
|
129
|
0 |
0 |
if ($@) |
|
132
|
0 |
0 |
unless (defined $proto) |
|
147
|
0 |
0 |
if $@ |
|
171
|
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:/) { } |
|
177
|
0 |
0 |
if ($] < 5.012) { } |
|
192
|
1 |
0 |
if defined $^E |
|
203
|
0 |
12 |
if $package eq 'Strict::Perl' |
|
204
|
0 |
12 |
if $package eq 'Carp' |
|
207
|
5 |
7 |
if (open SCRIPT, $filename) |
|
210
|
5 |
0 |
if $line - 2 >= 1 |
|
211
|
5 |
0 |
if $line - 1 >= 1 |
|
212
|
5 |
0 |
if defined $script[$line + 0] |
|
213
|
5 |
0 |
if defined $script[$line + 1] |
|
214
|
5 |
0 |
if defined $script[$line + 2] |
|
262
|
0 |
0 |
if ($version != $Strict::Perl::VERSION) |
|
273
|
0 |
0 |
unless ('/root/.cpan/build/Strict-Perl-2017.05-jPkxtE/blib/lib/Strict/Perl.pm' =~ m( \b Strict[/\\]Perl\.pm \z)x) |
|
279
|
0 |
0 |
unless ($Strict::Perl::VERSION_called) |
|
291
|
0 |
0 |
if ($] >= 5.010001) |