| blib/lib/ARGV/Struct.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 23 | 24 | 95.8 |
| line | true | false | branch |
|---|---|---|---|
| 31 | 1 | 15 | if scalar @{$substruct->{'leftover'};} |
| 39 | 3 | 35 | if ($token eq '[') { } |
| 4 | 31 | elsif ($token eq '{') { } | |
| 12 | 19 | elsif ($token eq ']') { } | |
| 60 | 14 | 24 | if ($token eq '}') |
| 66 | 8 | 16 | if substr($k, -1, 1) eq ':' |
| 67 | 1 | 23 | if exists $hash->{$k} |
| 69 | 1 | 22 | unless defined $v |
| 70 | 2 | 20 | if ($v eq '{') { } |
| 1 | 19 | elsif ($v eq '[') { } | |
| 90 | 9 | 14 | if ($token eq '[') { } |
| 14 | 0 | elsif ($token eq '{') { } |