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