| blib/lib/Getopt/Whatever.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 7 | 10 | 70.0 |
| line | true | false | branch |
|---|---|---|---|
| 23 | 2 | 3 | if (substr($arg, 0, 2) ne '--') |
| 30 | 1 | 2 | unless defined $key or defined $value |
| 32 | 1 | 1 | if (defined $value) { } |
| 33 | 0 | 1 | if (exists $values{$key}) { } |
| 34 | 0 | 0 | unless (ref $values{$key}) |