| line |
true |
false |
branch |
|
21
|
0 |
0 |
unless open my $file, '<', $path |
|
24
|
0 |
0 |
unless defined $ret |
|
31
|
0 |
0 |
unless open my $file, '>', $path |
|
32
|
0 |
0 |
unless defined $file->syswrite($content) |
|
53
|
0 |
0 |
if ($self->json_codec_mode == 0) { } |
|
|
0 |
0 |
elsif ($self->json_codec_mode == 1) { } |
|
67
|
0 |
0 |
if ($@) { } |
|
73
|
0 |
0 |
unless defined $r |
|
82
|
0 |
0 |
if ($@) { } |
|
88
|
0 |
0 |
unless defined $r |
|
97
|
0 |
0 |
if ($@) { } |
|
103
|
0 |
0 |
unless defined $r |
|
112
|
0 |
0 |
if ($@) { } |
|
114
|
0 |
0 |
unless defined $r |
|
118
|
0 |
0 |
unless defined $r |
|
126
|
0 |
0 |
unless defined $input |
|
129
|
0 |
0 |
if length $input < $truncate_length |
|
136
|
0 |
0 |
if (($bytes[$i] & 128) == 0) { } |
|
|
0 |
0 |
elsif (($bytes[$i] & 192) != 0 and ($bytes[$i] & 32) == 0) { } |
|
|
0 |
0 |
elsif (($bytes[$i] & 224) != 0 and ($bytes[$i] & 16) == 0) { } |
|
|
0 |
0 |
elsif (($bytes[$i] & 240) != 0 and ($bytes[$i] & 8) == 0) { } |
|
152
|
0 |
0 |
if ($i + $utf8_bytes > $truncate_length) { } |
|
|
0 |
0 |
elsif ($i + $utf8_bytes == $truncate_length) { } |
|
173
|
0 |
0 |
if (length $out_and_err > $max_bytes) |
|
178
|
0 |
0 |
if (@l > $max_lines) |
|
182
|
0 |
0 |
$is_truncated ? : |
|
216
|
0 |
0 |
if (ref $ref eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $ref eq 'ARRAY') { } |
|
219
|
0 |
0 |
if ref $cb eq 'CODE' and not &$cb('HASH', $deep, $_, $ref->{$_}) |
|
220
|
0 |
0 |
unless ($_ =~ /^[[:ascii:]]+$/) |
|
221
|
0 |
0 |
if ($unicode and not &Encode::is_utf8($_)) { } |
|
|
0 |
0 |
elsif (not $unicode and &Encode::is_utf8($_)) { } |
|
229
|
0 |
0 |
if (ref $ref->{$_} eq '') { } |
|
|
0 |
0 |
elsif ($recursive and ref $ref->{$_} eq 'ARRAY' or ref $ref->{$_} eq 'HASH') { } |
|
230
|
0 |
0 |
if ($unicode and not &Encode::is_utf8($ref->{$_})) { } |
|
|
0 |
0 |
elsif (not $unicode and &Encode::is_utf8($ref->{$_})) { } |
|
249
|
0 |
0 |
if ref $cb eq 'CODE' and not &$cb('ARRAY', $deep, $_) |
|
250
|
0 |
0 |
if (ref $_ eq '') { } |
|
|
0 |
0 |
elsif ($recursive and ref $_ eq 'ARRAY' or ref $_ eq 'HASH') { } |
|
251
|
0 |
0 |
if ($unicode and not &Encode::is_utf8($_)) { } |
|
|
0 |
0 |
elsif (not $unicode and &Encode::is_utf8($_)) { } |
|
285
|
0 |
0 |
if (exists $e{&$compare($_)}) { } |
|
295
|
0 |
0 |
if (exists $e{&$compare($_)}) { } |
|
320
|
0 |
0 |
unless exists $tmp{$id} |
|
321
|
0 |
0 |
if ($tmp{$id} > 1) |
|
322
|
0 |
0 |
if defined $info |
|
327
|
0 |
0 |
if wantarray |
|
329
|
0 |
0 |
if defined $info and $i > 0 |
|
330
|
0 |
0 |
wantarray ? : |
|
350
|
0 |
0 |
ref $_[0] eq 'HASH' ? : |
|
358
|
0 |
0 |
ref $_[0] eq 'HASH' ? : |
|
366
|
0 |
0 |
ref $_[0] eq 'HASH' ? : |
|
374
|
0 |
0 |
ref $_[0] eq 'HASH' ? : |
|
381
|
0 |
0 |
defined $, ? : |