| blib/lib/pragma.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 20 | 26 | 76.9 |
| line | true | false | branch |
|---|---|---|---|
| 99 | 1 | 6 | if 1 == @_ |
| 103 | 1 | 5 | if (2 == @_ and $_[1] eq '-base') |
| 106 | 0 | 1 | if $DEBUG |
| 117 | 3 | 2 | $class eq 'pragma' ? : |
| 123 | 0 | 5 | if $DEBUG |
| 136 | 1 | 0 | $class eq 'pragma' ? : |
| 142 | 0 | 1 | if $DEBUG |
| 160 | 0 | 2 | if 1 == @_ |
| 163 | 1 | 1 | $class eq 'pragma' ? : |
| 166 | 2 | 0 | if exists $^H{$hh_pragma} |
| 178 | 7 | 3 | $class eq 'pragma' ? : |
| 188 | 2 | 8 | unless $hints_hash |
| 189 | 2 | 6 | unless exists $$hints_hash{"$class$pragma"} |