| line |
true |
false |
branch |
|
101
|
0 |
0 |
if $_permanent_filter |
|
115
|
1 |
20 |
if ($_[$i] eq 'no-unicode-escape-permanently') { } |
|
|
1 |
19 |
elsif ($_[$i] eq 'unicode-escape-permanently') { } |
|
141
|
20 |
8 |
defined $_[1] ? : |
|
143
|
6 |
22 |
exists $params->{'pretty'} && defined $params->{'pretty'} ? : |
|
146
|
17 |
11 |
exists $params->{'escape-unicode'} && defined $params->{'escape-unicode'} ? : |
|
149
|
0 |
28 |
exists $params->{'convert_blessed'} && defined $params->{'convert_blessed'} ? : |
|
155
|
2 |
26 |
if $pretty_printing |
|
164
|
0 |
28 |
if $convert_blessed |
|
165
|
8 |
20 |
if ($escape_unicode) { } |
|
167
|
0 |
0 |
defined $@ && !($@ =~ /^\s*$/) ? : |
|
|
0 |
8 |
unless (defined $json_string) |
|
168
|
7 |
1 |
if (_has_utf8($json_string)) |
|
170
|
0 |
7 |
unless (defined $json_string) |
|
174
|
0 |
0 |
defined $@ && !($@ =~ /^\s*$/) ? : |
|
|
0 |
20 |
unless (defined $json_string) |
|
181
|
16 |
12 |
defined $_[1] ? : |
|
183
|
3 |
25 |
exists $params->{'pretty'} && defined $params->{'pretty'} ? : |
|
185
|
2 |
26 |
if $pretty_printing |
|
189
|
13 |
15 |
exists $params->{'escape-unicode'} && defined $params->{'escape-unicode'} ? : |
|
192
|
7 |
21 |
if ($escape_unicode) { } |
|
202
|
0 |
0 |
defined $@ && !($@ =~ /^\s*$/) ? : |
|
|
0 |
7 |
unless (defined $yaml_string) |
|
204
|
0 |
7 |
unless ($yaml_string) |
|
205
|
6 |
1 |
if (_has_utf8($yaml_string)) |
|
215
|
0 |
0 |
defined $@ && !($@ =~ /^\s*$/) ? : |
|
|
0 |
21 |
unless (defined $yaml_string) |
|
217
|
0 |
21 |
unless ($yaml_string) |
|
237
|
2 |
0 |
defined $@ && !($@ =~ /^\s*$/) ? : |
|
|
2 |
29 |
unless (defined $pv) |
|
244
|
0 |
4 |
unless (defined $contents) |
|
246
|
0 |
4 |
unless (defined $pv) |
|
256
|
31 |
8 |
defined $_[1] ? : |
|
261
|
25 |
14 |
if (_has_utf8($json_string)) { } |
|
262
|
3 |
22 |
if (exists $params->{'boolean_values'} and defined $params->{'boolean_values'} and ref $params->{'boolean_values'} eq 'ARRAY') { } |
|
274
|
3 |
0 |
defined $@ && !($@ =~ /^\s*$/) ? : |
|
|
3 |
22 |
unless (defined $pv) |
|
276
|
3 |
11 |
if (exists $params->{'boolean_values'} and defined $params->{'boolean_values'} and ref $params->{'boolean_values'} eq 'ARRAY') { } |
|
287
|
0 |
0 |
defined $@ && !($@ =~ /^\s*$/) ? : |
|
|
0 |
14 |
unless (defined $pv) |
|
294
|
0 |
4 |
unless (defined $contents) |
|
296
|
0 |
4 |
unless (defined $pv) |
|
301
|
2 |
0 |
defined $_[1] ? : |
|
304
|
1 |
1 |
unless (defined $pv) |
|
306
|
0 |
1 |
unless (defined $json_string) |
|
312
|
0 |
0 |
defined $_[1] ? : |
|
315
|
0 |
0 |
unless (defined $pv) |
|
317
|
0 |
0 |
unless (defined $yaml_string) |
|
323
|
0 |
0 |
defined $_[1] ? : |
|
326
|
0 |
0 |
unless (defined $pv) |
|
328
|
0 |
0 |
unless (defined $dump_string) |
|
334
|
12 |
2 |
defined $_[1] ? : |
|
339
|
1 |
13 |
unless ($pv) |
|
341
|
0 |
13 |
unless ($json) |
|
346
|
2 |
0 |
defined $_[1] ? : |
|
349
|
1 |
1 |
unless ($pv) |
|
351
|
0 |
1 |
unless ($dump) |
|
356
|
6 |
0 |
defined $_[1] ? : |
|
359
|
1 |
5 |
unless ($pv) |
|
361
|
0 |
5 |
unless ($dump) |
|
366
|
4 |
0 |
defined $_[1] ? : |
|
369
|
1 |
3 |
unless ($pv) |
|
371
|
0 |
3 |
unless ($json_string) |
|
376
|
0 |
0 |
defined $_[1] ? : |
|
379
|
0 |
0 |
unless ($pv) |
|
381
|
0 |
0 |
unless ($yaml_string) |
|
386
|
11 |
3 |
defined $_[1] ? : |
|
389
|
1 |
13 |
unless (defined $pv) |
|
391
|
0 |
13 |
unless (defined $yaml_string) |
|
410
|
1 |
0 |
defined $@ && !($@ =~ /^\s*$/) ? : |
|
|
1 |
36 |
unless (defined $pv) |
|
441
|
34 |
2 |
defined $_[1] ? : |
|
444
|
29 |
7 |
exists $params->{'terse'} && defined $params->{'terse'} ? : |
|
447
|
20 |
16 |
exists $params->{'indent'} && defined $params->{'indent'} ? : |
|
450
|
20 |
0 |
if ($_permanent_override == 0 and exists $params->{'dont-bloody-escape-unicode'} && defined $params->{'dont-bloody-escape-unicode'} && $params->{'dont-bloody-escape-unicode'} == 1 || exists $params->{'escape-unicode'} && defined $params->{'escape-unicode'} && $params->{'escape-unicode'} == 0) |
|
482
|
12 |
2 |
defined $_[1] ? : |
|
484
|
4 |
0 |
if ($_permanent_filter == 0 and exists $params->{'dont-bloody-escape-unicode'} && defined $params->{'dont-bloody-escape-unicode'} && $params->{'dont-bloody-escape-unicode'} == 1 || exists $params->{'escape-unicode'} && defined $params->{'escape-unicode'} && $params->{'escape-unicode'} == 0) |
|
503
|
3 |
2 |
defined $_[1] ? : |
|
505
|
3 |
0 |
if ($_permanent_override == 1 or exists $params->{'dont-bloody-escape-unicode'} and defined $params->{'dont-bloody-escape-unicode'} and $params->{'dont-bloody-escape-unicode'} == 1 or exists $params->{'escape-unicode'} and defined $params->{'escape-unicode'} and $params->{'escape-unicode'} == 0) |
|
534
|
595 |
3 |
defined $_[1] ? : |
|
536
|
588 |
10 |
if ($aref eq '') { } |
|
|
0 |
10 |
elsif ($aref eq 'SCALAR') { } |
|
|
4 |
6 |
elsif ($aref eq 'HASH') { } |
|
|
6 |
0 |
elsif ($aref eq 'ARRAY') { } |
|
587
|
0 |
20 |
unless (open $FH, "<:encoding(UTF-8)", $infile) |
|
600
|
0 |
0 |
unless (open $FH, ">:encoding(UTF-8)", $outfile) |
|
604
|
0 |
0 |
unless (write_to_filehandle($FH, $contents)) |
|
636
|
0 |
828 |
unless defined $_ |
|
639
|
826 |
2 |
unless /[[:^print:]]/ |
|
658
|
0 |
2 |
if ($high eq 'iso8859') { } |
|
|
2 |
0 |
elsif ($high eq 'utf8') { } |
|
|
0 |
0 |
elsif ($high eq '8bit') { } |
|
659
|
0 |
0 |
if ($Data_Dumper_IS_ASCII) { } |
|
|
0 |
0 |
elsif ($] ge 5.007003) { } |