| blib/lib/Perl/Critic/Policy/PreferredModules.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 15 | 22 | 68.1 |
| line | true | false | branch |
|---|---|---|---|
| 36 | 3 | 0 | $self->_parse_config($cfg_file) ? : |
| 56 | 0 | 5 | unless (length $cfg_file) |
| 60 | 1 | 4 | unless (-e $cfg_file) |
| 64 | 0 | 4 | unless $cfg_file and -e $cfg_file |
| 70 | 0 | 4 | unless open my $fh, "<", $cfg_file |
| 75 | 0 | 4 | unless (eval { |
| 86 | 9 | 1 | if $valid_opts{$opt} |
| 99 | 0 | 7 | unless $elem |
| 103 | 0 | 7 | unless defined $module |
| 104 | 2 | 5 | unless my $setup = $self->{'_cfg_preferred_modules'}{$module} |
| 109 | 4 | 1 | if (my $prefer = $setup->{'prefer'}) |