| blib/lib/Pod/WSDL/Attr.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 12 | 12 | 100.0 |
| line | true | false | branch |
|---|---|---|---|
| 20 | 1 | 13 | unless defined $str |
| 21 | 2 | 12 | unless $str =~ s/\s*_ATTR\s*//i |
| 26 | 4 | 8 | if (uc $needed ne '_NEEDED') { } |
| 34 | 1 | 11 | unless $1 |
| 36 | 7 | 4 | $needed ? : |
| 3 | 8 | $1 eq '@' ? : |