| line |
true |
false |
branch |
|
13
|
1 |
0 |
unless defined $JSON::DEBUG |
|
|
0 |
1 |
if exists $ENV{'PERL_JSON_DEBUG'} |
|
|
0 |
1 |
$_USSING_bpPP ? : |
|
|
0 |
1 |
if $JSON::DEBUG |
|
|
0 |
1 |
if ($_USSING_bpPP) { } |
|
|
0 |
0 |
if $JSON::DEBUG |
|
|
0 |
0 |
if ($backend eq $Module_PP) |
|
|
0 |
0 |
if $@ |
|
|
0 |
1 |
if ($@) |
|
|
1 |
0 |
unless (defined $opt and $opt & $_INSTALL_ONLY) |
|
|
0 |
1 |
if $JSON::DEBUG |
|
|
0 |
1 |
if $JSON::DEBUG |
|
|
1 |
0 |
if (defined $opt and $opt & $_INSTALL_DONT_DIE) |
|
|
1 |
0 |
if ($@) |
|
|
0 |
0 |
unless (defined $opt and $opt & $_INSTALL_ONLY) |
|
|
0 |
0 |
if $Installed{$_[0]}++ |
|
|
0 |
0 |
if ($@) |
|
|
0 |
0 |
if (exists $INC{'JSON/XS.pm'} and $boolean eq 'JSON::XS::Boolean') { } |
|
|
0 |
0 |
elsif (exists $INC{'JSON/PP.pm'} and $boolean eq 'JSON::PP::Boolean') { } |
|
|
0 |
1 |
if defined $JSON::true |
|
|
0 |
1 |
if ('JSON'->is_xs and 'JSON'->backend->VERSION < 3) |
|
|
0 |
1 |
$module eq $Module_XS ? : |
|
|
0 |
0 |
if (ref $_[0] eq 'JSON' or $_[0] eq 'JSON') |
|
|
0 |
0 |
if (@_ == 2 and ref $_[1] eq 'HASH') |
|
|
0 |
0 |
if $JSON::Backend eq $Module_XS |
|
|
0 |
0 |
unless ($_ALLOW_UNSUPPORTED++) |
|
|
0 |
0 |
unless $_UNIV_CONV_BLESSED++ |
|
|
0 |
0 |
if ($tag eq '-support_by_pp') { } |
|
|
0 |
0 |
elsif ($tag eq '-no_export') { } |
|
|
0 |
0 |
elsif ($tag eq '-convert_blessed_universally') { } |
|
|
0 |
1 |
if $no_export |
|
|
0 |
0 |
if (defined $_[0] and UNIVERSAL::isa($_[0], 'JSON')) |
|
|
0 |
0 |
if (defined $_[0] and UNIVERSAL::isa($_[0], 'JSON')) |
|
|
0 |
0 |
$value == 1 ? : |
|
|
0 |
0 |
if ($name eq 'max_size') |
|
|
0 |
0 |
$value == 1 ? : |
|
|
0 |
0 |
if ($name eq 'max_size') |
|
|
0 |
0 |
if (my $method = $self->can('get_' . $name)) |
|
|
0 |
0 |
if (@_ == 1) { } |
|
|
0 |
0 |
elsif (@_ > 3) { } |
|
|
0 |
0 |
elsif (@_ == 2) { } |
|
|
0 |
0 |
if (ref $_[0] eq 'JSON' or @_ > 2 and $_[0] eq 'JSON') |
|
|
0 |
0 |
if (@_ == 2 and ref $_[1] eq 'HASH') |