| line |
true |
false |
branch |
|
16
|
43 |
31 |
if $utf8 |
|
27
|
0 |
122 |
unless defined $klen |
|
31
|
0 |
122 |
unless defined $vlen |
|
45
|
0 |
105 |
unless defined $elen |
|
56
|
7 |
806 |
unless defined $str and length $str |
|
61
|
583 |
223 |
if $tag <= 127 |
|
64
|
4 |
219 |
if $tag >= 224 |
|
67
|
67 |
152 |
if (($tag & 18446744073709551584) == 160) |
|
69
|
0 |
67 |
unless length $str >= 1 + $len |
|
70
|
4 |
63 |
unless $len |
|
75
|
38 |
114 |
if (($tag & 18446744073709551600) == 128) |
|
81
|
25 |
89 |
if (($tag & 18446744073709551600) == 144) |
|
90
|
0 |
1 |
unless length $str >= 2 |
|
95
|
0 |
7 |
unless length $str >= 3 |
|
100
|
0 |
9 |
unless length $str >= 5 |
|
105
|
0 |
7 |
unless length $str >= 9 |
|
112
|
0 |
4 |
unless length $str >= 2 |
|
117
|
0 |
11 |
unless length $str >= 3 |
|
122
|
0 |
20 |
unless length $str >= 5 |
|
127
|
0 |
9 |
unless length $str >= 9 |
|
144
|
0 |
3 |
unless length $str >= 2 |
|
146
|
0 |
3 |
unless length $str >= 2 + $len |
|
151
|
0 |
1 |
unless length $str >= 3 |
|
153
|
0 |
1 |
unless length $str >= 3 + $len |
|
158
|
0 |
1 |
unless length $str >= 5 |
|
160
|
0 |
1 |
unless length $str >= 5 + $len |
|
167
|
0 |
4 |
unless length $str >= 2 |
|
169
|
0 |
4 |
unless length $str >= 2 + $len |
|
174
|
0 |
4 |
unless length $str >= 3 |
|
176
|
0 |
4 |
unless length $str >= 3 + $len |
|
182
|
0 |
3 |
unless length $str >= 5 |
|
184
|
0 |
3 |
unless length $str >= 5 + $len |
|
191
|
0 |
0 |
unless length $str >= 3 |
|
197
|
0 |
0 |
unless length $str >= 5 |
|
204
|
0 |
1 |
unless length $str >= 3 |
|
210
|
0 |
0 |
unless length $str >= 5 |
|
217
|
0 |
0 |
unless length $str >= 5 |
|
222
|
0 |
1 |
unless length $str >= 9 |
|
227
|
89 |
0 |
if exists $variant->{$tag} |
|
241
|
0 |
263 |
unless defined $len |
|
248
|
0 |
8 |
unless defined $len |
|
274
|
2 |
131595 |
unless defined $_ |
|
276
|
94 |
131501 |
unless &Scalar::Util::looks_like_number($_) |
|
278
|
0 |
131501 |
if /\s/ |
|
279
|
1 |
131500 |
if /^\s*\+\s*/ |
|
282
|
1 |
131499 |
if $_ == 9**9**9 |
|
283
|
0 |
131499 |
if $_ == -9**9**9 |
|
285
|
131491 |
8 |
if ($_ == int $_) |
|
286
|
1 |
131490 |
unless $_ <= $MAX_INT |
|
289
|
10 |
131488 |
unless ($v eq 0 + $v) |
|
290
|
2 |
8 |
if /-?(?:\d+\.\d*|\.\d+)$/ |
|
291
|
0 |
8 |
unless /^-?(\d+(?:\.\d*)?|\.\d+)e-?\d+$/ |
|
302
|
123 |
131597 |
if (ref $v) { } |
|
303
|
24 |
99 |
if ('ARRAY' eq ref $v) { } |
|
|
28 |
71 |
elsif ('HASH' eq ref $v) { } |
|
|
9 |
62 |
elsif ('SCALAR' eq ref $v) { } |
|
|
62 |
0 |
elsif (&Scalar::Util::blessed($v)) { } |
|
307
|
21 |
3 |
if ($size <= 15) { } |
|
|
2 |
1 |
elsif ($size <= 65535) { } |
|
323
|
26 |
2 |
if ($size <= 15) { } |
|
|
2 |
0 |
elsif ($size <= 65535) { } |
|
337
|
5 |
4 |
if $$v |
|
340
|
50 |
12 |
if $v->can('TO_MSGPACK') |
|
343
|
0 |
12 |
if ($v->can('TO_JSON')) |
|
348
|
0 |
12 |
if ('JSON::XS::Boolean' eq ref $_) |
|
349
|
0 |
0 |
if $_ |
|
352
|
0 |
12 |
if ('Types::Serialiser::Boolean' eq ref $_) |
|
353
|
0 |
0 |
if $_ |
|
356
|
12 |
0 |
if ('JSON::PP::Boolean' eq ref $_) |
|
357
|
6 |
6 |
if $_ |
|
362
|
0 |
0 |
if @l == 2 |
|
370
|
131498 |
99 |
if (&looks_like_number($v)) { } |
|
371
|
131490 |
8 |
if ($v == int $v) { } |
|
372
|
131450 |
40 |
if ($v >= 0) |
|
373
|
131398 |
52 |
if ($v <= 127) { } |
|
|
7 |
45 |
elsif ($v <= 255) { } |
|
|
16 |
29 |
elsif ($v <= 65535) { } |
|
|
17 |
12 |
elsif ($v <= 4294967295) { } |
|
385
|
11 |
29 |
if ($v >= -32) { } |
|
|
4 |
25 |
elsif ($v >= -128) { } |
|
|
10 |
15 |
elsif ($v >= -32768) { } |
|
|
8 |
7 |
elsif ($v >= -2147483648) { } |
|
401
|
2 |
97 |
unless (defined $v) |
|
404
|
10 |
87 |
if (utf8::is_utf8($v)) |
|
408
|
61 |
36 |
if (length $v <= 31) { } |
|
|
14 |
22 |
elsif (length $v <= 255) { } |
|
|
13 |
9 |
elsif (length $v <= 65535) { } |