| blib/lib/Pod/Perldoc/GetOptsOO.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 1 | 26 | 3.8 |
| line | true | false | branch |
|---|---|---|---|
| 10 | 1 | 0 | defined &Pod::Perldoc::DEBUG ? : |
| 19 | 0 | 0 | if $target->can('aside') |
| 23 | 0 | 0 | unless @$args |
| 25 | 0 | 0 | unless @_ > 2 |
| 34 | 0 | 0 | if ($_ eq '--') |
| 38 | 0 | 0 | if ($first eq '-' and $rest) |
| 42 | 0 | 0 | if ($target->can($method)) { } |
| 43 | 0 | 0 | if ($rest eq '') { } |
| 45 | 0 | 0 | unless @$args |
| 57 | 0 | 0 | if ($target->can($method = "opt_$first")) { } |
| 0 | 0 | elsif ($target->can('handle_unknown_option')) { } | |
| 76 | 0 | 0 | if ($rest eq '') { } |
| 87 | 0 | 0 | if $target->can('aside') |