| blib/lib/Perl/Critic/Policy/PreferredModules.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 15 | 22 | 68.1 |
| line | true | false | branch |
|---|---|---|---|
| 58 | 0 | 5 | unless (length $cfg_file) |
| 62 | 1 | 4 | unless (-e $cfg_file) |
| 66 | 0 | 4 | unless $cfg_file and -e $cfg_file |
| 72 | 0 | 4 | unless open my $fh, "<", $cfg_file |
| 77 | 0 | 4 | unless (eval { |
| 88 | 9 | 1 | if $valid_opts{$opt} |
| 101 | 0 | 7 | unless $self->{'_is_enabled'} |
| 102 | 0 | 7 | unless $elem |
| 106 | 0 | 7 | unless defined $module |
| 107 | 2 | 5 | unless my $setup = $self->{'_cfg_preferred_modules'}{$module} |
| 112 | 4 | 1 | if (my $prefer = $setup->{'prefer'}) |