Branch Coverage

blib/lib/Perl/Critic/Policy/Modules/ProhibitEvilModules.pm
Criterion Covered Total %
branch 24 30 80.0


line true false branch
107 1 104 unless $module_specifications
108 0 104 if $module_specifications =~ / \A \s* \z /msx
122 0 103 if ($module_specifications)
137 103 2 unless $config_string
138 0 2 if $config_string =~ / \A \s* \z /msx
140 0 2 unless open my $handle, "<", $config_string
150 0 2 unless close $handle
162 7 6 unless $line
164 6 0 if ($line =~ s/ $MODULES_FILE_LINE_REGEX //msx) { }
192 11 394 if (my $regex_string = $arguments{'regex_string'}) { }
201 1 10 unless eval {
238 2 88 unless $module
244 12 76 if (exists $evil_modules->{$module}) { }
250 14 6 if ($module =~ /$regex->[$INDEX_REGEX]/)
257 26 62 if (defined $description)