| blib/lib/Perl/Critic/Policy/InputOutput/ProhibitBarewordDirHandles.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 20 | 24 | 83.3 |
| line | true | false | branch |
|---|---|---|---|
| 30 | 394 | 34 | if $elem->content ne "opendir" |
| 31 | 1 | 33 | unless is_function_call($elem) |
| 34 | 1 | 32 | unless $first_arg |
| 36 | 0 | 32 | unless $token |
| 38 | 8 | 24 | if ($token->isa("PPI::Token::Word") and $token eq "local") |
| 40 | 0 | 8 | unless $token |
| 42 | 4 | 28 | if ($token->isa("PPI::Token::Cast") and $token eq "\\") |
| 44 | 0 | 4 | unless $token |
| 47 | 20 | 12 | if ($token->isa('PPI::Token::Symbol')) { } |
| 12 | 0 | elsif ($token->isa('PPI::Token::Word')) { } | |
| 48 | 12 | 8 | if $token =~ /^[*]/msx |
| 50 | 4 | 8 | unless $token =~ /^(?:my|our)$/msx |