Branch Coverage

lib/Strict/Perl.pm
Criterion Covered Total %
branch 1 56 1.7


line true false branch
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-2018.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)