| blib/lib/Perl/Lint/Policy/Modules/ProhibitEvilModules.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 11 | 11 | 100.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 44 | 50 | 27 | 38 | $token_type != 127 and $token_type != 126 |
| 77 | 8 | 30 | $token_type != 127 and $token_type != 126 and $token_type != 94 |
| line | l | !l | condition |
|---|---|---|---|
| 24 | 9 | 6 | $args->{'prohibit_evil_modules'}{'modules'} || '' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 54 | 13 | 17 | 1 | &any(sub { $used_name eq $_; } , @{['Class::ISA', 'Pod::Plainer', 'Shell', 'Switch'];}, @evils) or &any(sub { $used_name =~ /$_/ if $_; } , @evils_re) |