| blib/lib/Perl/Critic/Policy/OTRS/ProhibitPushISA.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 11 | 14 | 78.5 |
| line | true | false | branch |
|---|---|---|---|
| 26 | 20 | 6 | if $elem ne 'push' and $elem ne 'CORE::push' |
| 29 | 1 | 3 | unless $sibling->isa('PPI::Token::Symbol') or $sibling->isa('PPI::Structure::List') |
| 31 | 2 | 3 | if ($sibling->isa('PPI::Token::Symbol')) { } |
| 3 | 0 | elsif ($sibling->isa('PPI::Structure::List')) { } | |
| 32 | 0 | 2 | if $sibling ne '@ISA' |
| 37 | 1 | 2 | unless $symbol |
| 38 | 0 | 2 | if $symbol->[0] ne '@ISA' |