| line |
true |
false |
branch |
|
87
|
0 |
0 |
if $_permanent_filter |
|
101
|
1 |
7 |
if ($_[$i] eq 'no-unicode-escape-permanently') { } |
|
|
1 |
6 |
elsif ($_[$i] eq 'unicode-escape-permanently') { } |
|
127
|
17 |
8 |
defined $_[1] ? : |
|
129
|
3 |
22 |
exists $params->{'pretty'} && defined $params->{'pretty'} ? : |
|
132
|
15 |
10 |
exists $params->{'escape-unicode'} && defined $params->{'escape-unicode'} ? : |
|
137
|
8 |
17 |
if ($escape_unicode) { } |
|
138
|
2 |
6 |
if ($pretty_printing) { } |
|
140
|
0 |
0 |
defined $@ ? : |
|
|
0 |
2 |
if ($@ or not defined $json_string) |
|
142
|
7 |
1 |
if (_has_utf8($json_string)) |
|
144
|
0 |
7 |
unless (defined $json_string) |
|
147
|
0 |
17 |
if ($pretty_printing) { } |
|
149
|
0 |
0 |
defined $@ ? : |
|
|
0 |
0 |
if ($@ or not defined $json_string) |
|
156
|
0 |
0 |
defined $@ ? : |
|
|
0 |
17 |
if ($@ or not defined $json_string) |
|
164
|
15 |
10 |
defined $_[1] ? : |
|
166
|
3 |
22 |
exists $params->{'pretty'} && defined $params->{'pretty'} ? : |
|
168
|
2 |
23 |
if $pretty_printing |
|
172
|
12 |
13 |
exists $params->{'escape-unicode'} && defined $params->{'escape-unicode'} ? : |
|
175
|
7 |
18 |
if ($escape_unicode) { } |
|
185
|
0 |
0 |
defined $@ ? : |
|
|
0 |
7 |
if ($@ or not defined $yaml_string) |
|
187
|
0 |
7 |
unless ($yaml_string) |
|
188
|
6 |
1 |
if (_has_utf8($yaml_string)) |
|
198
|
0 |
0 |
defined $@ ? : |
|
|
0 |
18 |
if ($@ or not defined $yaml_string) |
|
200
|
0 |
18 |
unless ($yaml_string) |
|
209
|
0 |
0 |
defined $@ ? : |
|
|
0 |
25 |
if ($@ or not defined $pv) |
|
216
|
0 |
4 |
unless (defined $contents) |
|
218
|
0 |
4 |
unless (defined $pv) |
|
225
|
17 |
10 |
if (_has_utf8($json_string)) { } |
|
228
|
0 |
0 |
defined $@ ? : |
|
|
0 |
17 |
if ($@ or not defined $pv) |
|
232
|
0 |
0 |
defined $@ ? : |
|
|
0 |
10 |
if ($@ or not defined $pv) |
|
240
|
0 |
4 |
unless (defined $contents) |
|
242
|
0 |
4 |
unless (defined $pv) |
|
247
|
0 |
0 |
defined $_[1] ? : |
|
250
|
0 |
0 |
unless (defined $pv) |
|
252
|
0 |
0 |
unless (defined $json_string) |
|
258
|
0 |
0 |
defined $_[1] ? : |
|
261
|
0 |
0 |
unless (defined $pv) |
|
263
|
0 |
0 |
unless (defined $yaml_string) |
|
269
|
0 |
0 |
defined $_[1] ? : |
|
272
|
0 |
0 |
unless (defined $pv) |
|
274
|
0 |
0 |
unless (defined $dump_string) |
|
280
|
10 |
2 |
defined $_[1] ? : |
|
285
|
0 |
12 |
unless ($pv) |
|
287
|
0 |
12 |
unless ($json) |
|
292
|
0 |
0 |
defined $_[1] ? : |
|
295
|
0 |
0 |
unless ($pv) |
|
297
|
0 |
0 |
unless ($dump) |
|
302
|
4 |
0 |
defined $_[1] ? : |
|
305
|
0 |
4 |
unless ($pv) |
|
307
|
0 |
4 |
unless ($dump) |
|
312
|
2 |
0 |
defined $_[1] ? : |
|
315
|
0 |
2 |
unless ($pv) |
|
317
|
0 |
2 |
unless ($json_string) |
|
322
|
0 |
0 |
defined $_[1] ? : |
|
325
|
0 |
0 |
unless ($pv) |
|
327
|
0 |
0 |
unless ($yaml_string) |
|
332
|
9 |
3 |
defined $_[1] ? : |
|
335
|
0 |
12 |
unless (defined $pv) |
|
337
|
0 |
12 |
unless (defined $yaml_string) |
|
353
|
0 |
0 |
defined $@ ? : |
|
|
0 |
35 |
if ($@ or not defined $pv) |
|
384
|
32 |
2 |
defined $_[1] ? : |
|
387
|
27 |
7 |
exists $params->{'terse'} && defined $params->{'terse'} ? : |
|
390
|
18 |
16 |
exists $params->{'indent'} && defined $params->{'indent'} ? : |
|
393
|
18 |
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) |
|
425
|
12 |
2 |
defined $_[1] ? : |
|
427
|
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) |
|
446
|
3 |
2 |
defined $_[1] ? : |
|
448
|
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) |
|
477
|
1507 |
3 |
defined $_[1] ? : |
|
479
|
1492 |
18 |
if ($aref eq '') { } |
|
|
0 |
18 |
elsif ($aref eq 'SCALAR') { } |
|
|
12 |
6 |
elsif ($aref eq 'HASH') { } |
|
|
6 |
0 |
elsif ($aref eq 'ARRAY') { } |
|
530
|
0 |
8 |
unless (open $FH, "<:encoding(UTF-8)", $infile) |
|
543
|
0 |
0 |
unless (open $FH, ">:encoding(UTF-8)", $outfile) |
|
547
|
0 |
0 |
unless (write_to_filehandle($FH, $contents)) |
|
579
|
0 |
2798 |
unless defined $_ |
|
582
|
2796 |
2 |
unless /[[:^print:]]/ |
|
601
|
0 |
2 |
if ($high eq 'iso8859') { } |
|
|
2 |
0 |
elsif ($high eq 'utf8') { } |
|
|
0 |
0 |
elsif ($high eq '8bit') { } |
|
602
|
0 |
0 |
if ($Data_Dumper_IS_ASCII) { } |
|
|
0 |
0 |
elsif ($] ge 5.007003) { } |