| blib/lib/Devel/Pragma.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 10 | 14 | 71.4 |
| line | true | false | branch |
|---|---|---|---|
| 34 | 1 | 44 | unless ($^H & 131072) |
| 65 | 11 | 5 | exists $hints->{$id} ? : |
| 68 | 9 | 7 | if ($current_scope == $old_scope) { } |
| 88 | 3 | 2 | if ($name =~ /::/) { } |
| 91 | 0 | 2 | @_ ? : |
| 95 | 0 | 5 | wantarray ? : |
| 101 | 0 | 0 | &Scalar::Util::blessed($ref) ? : |