| line |
true |
false |
branch |
|
37
|
0 |
1 |
unless ($code) |
|
83
|
0 |
17 |
unless $bytes |
|
86
|
0 |
17 |
unless utf8::downgrade($bytes, 1) |
|
102
|
0 |
17 |
unless (pos $_ == length $_) |
|
103
|
0 |
0 |
ref $ref ? : |
|
111
|
0 |
17 |
if (not $res and my $e = $@) |
|
134
|
4 |
4 |
if (/\G,/cg) |
|
140
|
5 |
3 |
if /\G\]/cg |
|
143
|
3 |
0 |
if $found_separator |
|
159
|
4 |
0 |
if (/\G([A-Za-z][a-zA-Z0-9_]*)/cg) { } |
|
163
|
0 |
0 |
unless /\G"/cg |
|
172
|
0 |
4 |
unless /\G=>/cg |
|
181
|
2 |
2 |
if /\G,/cg |
|
185
|
4 |
0 |
if /\G\}/cg |
|
188
|
0 |
0 |
if $found_separator |
|
205
|
0 |
3 |
unless (/\G$quote/cg) |
|
206
|
0 |
0 |
if /\G[\x00-\x1f\\]/ |
|
212
|
3 |
0 |
if (index($str, '\\u') < 0) |
|
223
|
0 |
0 |
if ($2) { } |
|
230
|
0 |
0 |
if (($ord & 63488) == 55296) |
|
233
|
0 |
0 |
unless ($ord & 64512) == 55296 |
|
237
|
0 |
0 |
unless $str =~ /\G\\u([Dd][C-Fc-f]..)/cg |
|
255
|
33 |
88 |
if (/\G\x0d?\x0a/cg) |
|
256
|
6 |
27 |
if (@HERE_QUEUE) |
|
258
|
6 |
0 |
if (/\G(.*?)^([ \t]*)$terminator$/cgms) { } |
|
279
|
1 |
29 |
if (/\G([a-zA-Z][a-zA-Z0-9_]*)\(/cg) |
|
282
|
0 |
1 |
unless /\G\)/cg |
|
287
|
6 |
23 |
if (/\G<<-([A-Za-z.]+)/cg) |
|
293
|
6 |
17 |
if /\Gr('''|""""|'|")(.*?)\1/cg |
|
296
|
3 |
14 |
if /\G(["'])/cg |
|
299
|
5 |
9 |
if /\G\[/cg |
|
302
|
5 |
4 |
if /\G\{/cg |
|
305
|
1 |
3 |
if /\G([-]?(?:0|[1-9][0-9]*)(?:\.[0-9]*)?(?:[eE][+-]?[0-9]+)?)/cg |
|
309
|
2 |
1 |
if /\Gtrue/cg |
|
312
|
0 |
1 |
if /\Gfalse/cg |
|
315
|
1 |
0 |
if /\Gnull/cg |
|
328
|
0 |
0 |
if (/\G\z/cg) { } |
|
366
|
5 |
4 |
if (my $ref = ref $value) |
|
369
|
1 |
4 |
if $ref eq 'ARRAY' |
|
372
|
2 |
2 |
if $ref eq 'HASH' |
|
375
|
0 |
0 |
&Types::Serialiser::is_true($value) ? : |
|
|
0 |
2 |
if &Types::Serialiser::is_bool($ref) |
|
378
|
1 |
1 |
$$value ? : |
|
|
2 |
0 |
if $ref =~ /SCALAR/ |
|
383
|
0 |
4 |
unless defined $value |
|
387
|
2 |
2 |
if $flags & 12288 and $value * 0 == 0 |