| line |
true |
false |
branch |
|
33
|
19 |
18 |
if (shift() eq 'true') { }
|
|
47
|
185 |
248 |
if ($self->{'strict'})
|
|
73
|
58 |
2 |
$token ? :
|
|
74
|
0 |
60 |
if ($ENV{'TOML_TINY_DEBUG'}) { }
|
|
102
|
3636 |
2 |
$token ? :
|
|
103
|
28 |
3610 |
unless $actual =~ /$expected/u
|
|
136
|
2 |
961 |
if ($key and exists $node->{$key})
|
|
147
|
163 |
317 |
if ($token->{'type'} eq "inline_array")
|
|
149
|
0 |
163 |
if exists $self->{'array_tables'}{$key}
|
|
155
|
75 |
242 |
if ($token->{'type'} eq "array_table")
|
|
156
|
1 |
74 |
if (exists $self->{'arrays'}{$key})
|
|
164
|
242 |
0 |
if ($token->{'type'} eq "table")
|
|
167
|
2 |
240 |
if exists $self->{'arrays'}{$key} or exists $self->{'array_tables'}{$key}
|
|
169
|
9 |
231 |
if (exists $self->{'tables'}{$key})
|
|
176
|
8 |
1 |
if (exists $node->{$key} and ref $node->{$key} eq 'ARRAY') { }
|
|
184
|
1 |
8 |
unless ($in_a_stupid_table_array)
|
|
200
|
747 |
293 |
if (exists $node->{$key}) { }
|
|
202
|
601 |
146 |
if ($ref eq "HASH")
|
|
206
|
143 |
3 |
if ($ref eq "ARRAY")
|
|
233
|
319 |
1216 |
if $type eq "EOL"
|
|
235
|
931 |
285 |
if ($type eq "key")
|
|
241
|
670 |
136 |
if (my $eol = $self->next_token) { }
|
|
249
|
36 |
249 |
if ($type eq "array_table")
|
|
255
|
229 |
20 |
if ($type eq "table")
|
|
282
|
130 |
134 |
if $type eq "EOL"
|
|
284
|
80 |
54 |
if ($type eq "key")
|
|
292
|
39 |
15 |
if ($type eq "array_table")
|
|
298
|
15 |
0 |
if ($type eq "table")
|
|
320
|
471 |
877 |
if $type eq "string"
|
|
321
|
99 |
778 |
if $type eq "float"
|
|
322
|
418 |
360 |
if $type eq "integer"
|
|
323
|
39 |
321 |
if $type eq "bool"
|
|
324
|
56 |
265 |
if $type eq "datetime"
|
|
325
|
98 |
167 |
if $type eq "inline_table"
|
|
326
|
163 |
4 |
if $type eq "inline_array"
|
|
365
|
220 |
721 |
if ($token->{'type'} eq "comma")
|
|
370
|
257 |
464 |
if $token->{'type'} eq "EOL"
|
|
371
|
155 |
309 |
if $token->{'type'} eq "inline_array_close"
|
|
392
|
19 |
166 |
if ($type eq "comma")
|
|
394
|
3 |
16 |
$self->{'strict'} ? :
|
|
400
|
76 |
90 |
if ($type eq "key")
|
|
412
|
0 |
76 |
if (exists $node->{$key}) { }
|
|
422
|
88 |
2 |
if $type eq "inline_table_close"
|
|
436
|
1 |
98 |
if ($self->{'inflate_float'})
|
|
440
|
13 |
85 |
if $value =~ /^[-+]?nan$/iu
|
|
441
|
7 |
78 |
if $value =~ /^\+?inf$/iu
|
|
442
|
4 |
74 |
if $value =~ /^-inf$/iu
|
|
445
|
39 |
35 |
if (0 + $value eq $value)
|
|
460
|
25 |
10 |
if ($value =~ /[eE]/u)
|
|
461
|
25 |
0 |
if ("Math::BigFloat"->new($value)->beq(0 + $value))
|
|
475
|
1 |
417 |
if ($self->{'inflate_integer'})
|
|
480
|
16 |
401 |
if ($value =~ /^0x/u)
|
|
484
|
16 |
0 |
$big->beq($hex) ? :
|
|
488
|
12 |
389 |
if ($value =~ /^0o/u)
|
|
493
|
12 |
0 |
$big->beq($oct) ? :
|
|
497
|
11 |
378 |
if ($value =~ /^0b/u)
|
|
501
|
11 |
0 |
$big->beq($bin) ? :
|
|
505
|
371 |
7 |
if (0 + $value eq $value)
|