| line |
true |
false |
branch |
|
13
|
67 |
0 |
unless defined $JSON::DEBUG |
|
14
|
0 |
67 |
if exists $ENV{'PERL_JSON_DEBUG'} |
|
95
|
10 |
1 |
if ($tag eq '-support_by_pp') { } |
|
|
0 |
1 |
elsif ($tag eq '-no_export') { } |
|
|
1 |
0 |
elsif ($tag eq '-convert_blessed_universally') { } |
|
96
|
10 |
0 |
unless ($_ALLOW_UNSUPPORTED++) |
|
97
|
5 |
5 |
if $JSON::Backend->is_xs |
|
107
|
1 |
0 |
unless $_UNIV_CONV_BLESSED++ |
|
128
|
0 |
67 |
if $no_export |
|
138
|
2 |
0 |
if (defined $_[0] and UNIVERSAL::isa($_[0], "JSON")) |
|
147
|
0 |
2 |
if (defined $_[0] and UNIVERSAL::isa($_[0], "JSON")) |
|
158
|
1 |
7 |
if (ref $_[0] eq "JSON" or @_ > 2 and $_[0] eq "JSON") |
|
166
|
4 |
3 |
if (@_ == 2 and ref $_[1] eq "HASH") |
|
178
|
0 |
5 |
if (ref $_[0] eq "JSON" or $_[0] eq "JSON") |
|
183
|
1 |
4 |
if (@_ == 2 and ref $_[1] eq "HASH") |
|
201
|
2 |
2 |
pop() ? : |
|
233
|
0 |
36 |
if (@_ == 1) { } |
|
|
0 |
36 |
elsif (@_ > 3) { } |
|
|
36 |
0 |
elsif (@_ == 2) { } |
|
237
|
0 |
0 |
if ($name eq "max_size") |
|
239
|
0 |
0 |
$value == 1 ? : |
|
250
|
36 |
0 |
if (my $method = $self->can("get_" . $name)) |
|
251
|
0 |
36 |
if ($name eq "max_size") |
|
253
|
0 |
0 |
$value == 1 ? : |
|
271
|
0 |
10 |
if $JSON::DEBUG |
|
278
|
0 |
10 |
if ($@) |
|
279
|
0 |
0 |
if (defined $opt and $opt & $_INSTALL_DONT_DIE) |
|
280
|
0 |
0 |
if $JSON::DEBUG |
|
291
|
0 |
10 |
unless __load_xs($module, $opt) |
|
305
|
6 |
62 |
if $JSON::DEBUG |
|
310
|
0 |
62 |
if ($@) |
|
311
|
0 |
40 |
if ($module eq "JSON::PP") |
|
312
|
0 |
10 |
if $JSON::DEBUG |
|
317
|
0 |
5 |
if $@ |
|
356
|
0 |
57 |
if ($version < 3.99) { } |