| line |
true |
false |
branch |
|
12
|
0 |
0 |
unless $$content_ref |
|
13
|
0 |
0 |
unless defined $is_emoji_to_text |
|
14
|
0 |
0 |
if ($is_emoji_to_text) { } |
|
15
|
0 |
0 |
exists $emoji_to_text_map{$1} ? : |
|
51
|
0 |
0 |
unless open my $file, '<', $path |
|
54
|
0 |
0 |
unless defined $ret |
|
61
|
0 |
0 |
unless open my $file, '>', $path |
|
62
|
0 |
0 |
unless defined $file->syswrite($content) |
|
69
|
0 |
0 |
if ($self->json_codec_mode == 0) { } |
|
|
0 |
0 |
elsif ($self->json_codec_mode == 1) { } |
|
83
|
0 |
0 |
if ($@) { } |
|
89
|
0 |
0 |
unless defined $r |
|
98
|
0 |
0 |
if ($@) { } |
|
104
|
0 |
0 |
unless defined $r |
|
113
|
0 |
0 |
if ($@) { } |
|
119
|
0 |
0 |
unless defined $r |
|
128
|
0 |
0 |
if ($@) { } |
|
130
|
0 |
0 |
unless defined $r |
|
134
|
0 |
0 |
unless defined $r |
|
146
|
0 |
0 |
if (length $out_and_err > $max_bytes) |
|
151
|
0 |
0 |
if (@l > $max_lines) |
|
155
|
0 |
0 |
$is_truncated ? : |
|
165
|
0 |
0 |
if (ref $ref eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $ref eq 'ARRAY') { } |
|
168
|
0 |
0 |
if ref $cb eq 'CODE' and not &$cb('HASH', $deep, $_, $ref->{$_}) |
|
169
|
0 |
0 |
unless ($_ =~ /^[[:ascii:]]+$/) |
|
170
|
0 |
0 |
if ($unicode and not &Encode::is_utf8($_)) { } |
|
|
0 |
0 |
elsif (not $unicode and &Encode::is_utf8($_)) { } |
|
178
|
0 |
0 |
if (ref $ref->{$_} eq '') { } |
|
|
0 |
0 |
elsif ($recursive and ref $ref->{$_} eq 'ARRAY' or ref $ref->{$_} eq 'HASH') { } |
|
179
|
0 |
0 |
if ($unicode and not &Encode::is_utf8($ref->{$_})) { } |
|
|
0 |
0 |
elsif (not $unicode and &Encode::is_utf8($ref->{$_})) { } |
|
198
|
0 |
0 |
if ref $cb eq 'CODE' and not &$cb('ARRAY', $deep, $_) |
|
199
|
0 |
0 |
if (ref $_ eq '') { } |
|
|
0 |
0 |
elsif ($recursive and ref $_ eq 'ARRAY' or ref $_ eq 'HASH') { } |
|
200
|
0 |
0 |
if ($unicode and not &Encode::is_utf8($_)) { } |
|
|
0 |
0 |
elsif (not $unicode and &Encode::is_utf8($_)) { } |
|
233
|
0 |
0 |
if (exists $e{&$compare($_)}) { } |
|
243
|
0 |
0 |
if (exists $e{&$compare($_)}) { } |
|
266
|
0 |
0 |
unless exists $tmp{$id} |
|
267
|
0 |
0 |
if $tmp{$id} > 1 |
|
269
|
0 |
0 |
if wantarray |
|
271
|
0 |
0 |
wantarray ? : |
|
286
|
0 |
0 |
ref $_[0] eq 'HASH' ? : |
|
299
|
0 |
0 |
ref $_[0] eq 'HASH' ? : |
|
307
|
0 |
0 |
ref $_[0] eq 'HASH' ? : |
|
315
|
0 |
0 |
ref $_[0] eq 'HASH' ? : |
|
324
|
0 |
0 |
defined $, ? : |