Branch Coverage

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


line true false branch
105 1 90 unless $module_specifications
106 0 90 if $module_specifications =~ / \A \s* \z /msx
120 0 90 if ($module_specifications)
135 91 0 unless $config_string
136 0 0 if $config_string =~ / \A \s* \z /msx
138 0 0 unless open my $handle, "<", $config_string
148 0 0 unless close $handle
160 0 0 unless $line
162 0 0 if ($line =~ s/ $MODULES_FILE_LINE_REGEX //msx) { }
190 0 360 if (my $regex_string = $arguments{'regex_string'}) { }
199 0 0 unless eval {
236 2 61 unless $module
242 0 61 if (exists $evil_modules->{$module}) { }
248 0 0 if ($module =~ /$regex->[$INDEX_REGEX]/)
255 0 61 if (defined $description)