| blib/lib/Pod/Perldoc/GetOptsOO.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 0 | 10 | 0.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 32 | 0 | 0 | 0 | @$args and ($_ = $args->[0]) =~ /^-(.)(.*)/s |
| 38 | 0 | 0 | 0 | $first eq '-' and $rest |
| line | l | !l | condition |
|---|---|---|---|
| 17 | 0 | 0 | $args ||= \@ARGV |
| 67 | 0 | 0 | $target->handle_unknown_option($first) || 0 |