line |
true |
false |
branch |
44
|
21 |
51 |
defined $err ? : |
53
|
1 |
2 |
defined $err ? : |
57
|
1 |
4 |
if ref $_[0] eq 'ARRAY' or ref $_[0] eq 'HASH' |
68
|
53 |
22 |
eval {
do {
die "Missing or empty input\n" unless length(local $_ = shift());
$_ = eval {
do {
&Encode::decode('UTF-8', $_, 1)
}
} unless shift();
die "Input is not UTF-8 encoded\n" unless defined $_;
$$valueref = _decode_value();
return /\G[\x20\x09\x0a\x0d]*\z/cg || _throw('Unexpected data')
}
} ? : |
71
|
1 |
74 |
unless length(local $_ = shift()) |
74
|
71 |
3 |
unless shift() |
75
|
2 |
72 |
unless defined $_ |
95
|
26 |
44 |
if /\G[\x20\x09\x0a\x0d]*,/cg |
98
|
41 |
3 |
if /\G[\x20\x09\x0a\x0d]*\]/cg |
112
|
3 |
25 |
unless /\G[\x20\x09\x0a\x0d]*"/cg |
119
|
1 |
24 |
unless /\G[\x20\x09\x0a\x0d]*:/cg |
126
|
10 |
14 |
if /\G[\x20\x09\x0a\x0d]*,/cg |
129
|
13 |
1 |
if /\G[\x20\x09\x0a\x0d]*\}/cg |
146
|
2 |
69 |
unless (/\G"/cg) |
147
|
1 |
1 |
if /\G[\x00-\x1f\\]/ |
153
|
63 |
6 |
if (index($str, '\\u') < 0) |
164
|
5 |
8 |
if ($2) { } |
171
|
3 |
5 |
if (($ord & 63488) == 55296) |
174
|
1 |
2 |
unless ($ord & 64512) == 55296 |
178
|
1 |
1 |
unless $str =~ /\G\\u([Dd][C-Fc-f]..)/cg |
199
|
46 |
125 |
if /\G"/cg |
202
|
20 |
105 |
if /\G\{/cg |
205
|
54 |
51 |
if /\G\[/cg |
209
|
29 |
22 |
if defined $i |
212
|
8 |
14 |
if /\Gtrue/cg |
215
|
7 |
7 |
if /\Gfalse/cg |
218
|
5 |
2 |
if /\Gnull/cg |
245
|
88 |
55 |
if (my $ref = ref $value) |
248
|
25 |
63 |
if $ref eq 'HASH' |
251
|
44 |
19 |
if $ref eq 'ARRAY' |
254
|
4 |
4 |
$$value ? : |
|
8 |
11 |
if $ref eq 'SCALAR' |
255
|
5 |
4 |
$value ? : |
|
9 |
2 |
if $ref eq 'JSON::Tiny::_Bool' |
258
|
2 |
0 |
if (&blessed($value) and my $sub = $value->can('TO_JSON')) |
264
|
5 |
50 |
unless defined $value |
269
|
19 |
4 |
if B::svref_2object(\$value)->FLAGS & 12288 and 0 + $value eq $value and $value * 0 == 0 |
287
|
0 |
19 |
if (/\G\z/cg) { } |