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 |