| blib/lib/Data/Printer/Profile/JSON.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 7 | 10 | 70.0 |
| line | true | false | branch |
|---|---|---|---|
| 60 | 0 | 1 | if $reftype eq 'REGEXP' |
| 70 | 3 | 0 | if ($reftype ne 'HASH' and $reftype ne 'ARRAY') |
| 75 | 2 | 1 | if ($ddp->seen($$ref)) |
| 98 | 1 | 0 | if ($v =~ /^\(\?\^?([msixpadlun-]*):([\x00-\xFF]*)\)\z/) |
| 116 | 1 | 5 | unless defined $$scalar |