| blib/lib/Perl/Critic/Policy/PreferredModules.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 15 | 22 | 68.1 |
| line | true | false | branch |
|---|---|---|---|
| 61 | 0 | 5 | unless (length $cfg_file) |
| 65 | 1 | 4 | unless (-e $cfg_file) |
| 69 | 0 | 4 | unless $cfg_file and -e $cfg_file |
| 75 | 0 | 4 | unless open my $fh, "<", $cfg_file |
| 80 | 0 | 4 | unless (eval { |
| 91 | 9 | 1 | if $valid_opts{$opt} |
| 104 | 0 | 7 | unless $self->{'_is_enabled'} |
| 105 | 0 | 7 | unless $elem |
| 109 | 0 | 7 | unless defined $module |
| 110 | 2 | 5 | unless my $setup = $self->{'_cfg_preferred_modules'}{$module} |
| 115 | 4 | 1 | if (my $prefer = $setup->{'prefer'}) |