| blib/lib/Perl/Critic/Policy/Community/DiscouragedModules.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 6 | 9 | 66.6 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 51 | 0 | 37 | 21 | defined $elem->module and exists $modules{$elem->module} |
| 37 | 3 | 18 | defined $elem->module and exists $modules{$elem->module} and not exists $self->{'_allowed_modules'}{$elem->module} |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 45 | 18 | 0 | 0 | $modules{$module} // "Module $module is discouraged." |