| line |
true |
false |
branch |
|
66
|
0 |
36 |
if ($disable) |
|
73
|
3 |
33 |
if ($cnt > 1 or $cnt == 0) |
|
83
|
0 |
36 |
unless (@items) |
|
90
|
3 |
33 |
if ($is_array) |
|
95
|
3 |
33 |
if ($cnt > 1 or $cnt == 0) |
|
99
|
36 |
0 |
if ($return_string) { } |
|
109
|
0 |
0 |
if ($disable) |
|
117
|
0 |
0 |
if ($stack_trace) { } |
|
132
|
10 |
46 |
if ($type eq 'ARRAY') { } |
|
|
6 |
40 |
elsif ($type eq 'HASH') { } |
|
|
3 |
37 |
elsif ($type eq 'SCALAR') { } |
|
|
2 |
35 |
elsif (not $type and is_bool_val($x)) { } |
|
|
16 |
19 |
elsif (not $type and is_integer($x)) { } |
|
|
1 |
18 |
elsif (not $type and is_float($x)) { } |
|
|
11 |
7 |
elsif (not $type and is_string($x)) { } |
|
|
2 |
5 |
elsif (not $type and is_undef($x)) { } |
|
|
3 |
2 |
elsif ($class eq 'Regexp') { } |
|
|
1 |
1 |
elsif ($type eq 'GLOB') { } |
|
|
1 |
0 |
elsif ($type eq 'CODE') { } |
|
|
0 |
0 |
elsif ($type eq 'VSTRING') { } |
|
|
0 |
0 |
elsif ($class) { } |
|
173
|
1 |
1 |
if ($x) { } |
|
213
|
0 |
0 |
if ($promote_bool and $class eq "JSON::PP::Boolean") |
|
222
|
0 |
0 |
if ($reftype eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($reftype eq 'HASH') { } |
|
|
0 |
0 |
elsif ($reftype eq 'SCALAR') { } |
|
268
|
2 |
9 |
if (length $x == 0) |
|
278
|
1 |
8 |
if (not $printable and length $x < 20) { } |
|
|
0 |
8 |
elsif (not $printable) { } |
|
285
|
2 |
1 |
if ($is_printable) { } |
|
328
|
2 |
8 |
if ($cnt == 0) |
|
343
|
0 |
8 |
if ($column_mode) { } |
|
372
|
1 |
5 |
if ($cnt == 0) |
|
378
|
5 |
0 |
if ($hash_sort) |
|
393
|
5 |
0 |
unless ($column_mode) |
|
400
|
3 |
3 |
if ($key =~ /\W/u) |
|
411
|
3 |
3 |
if ($keys_need_quotes) { } |
|
418
|
0 |
6 |
if ($column_mode) |
|
423
|
0 |
0 |
if ($append_cnt < 0) |
|
434
|
0 |
5 |
if ($column_mode) { } |
|
463
|
5 |
1 |
if ($len > $max) |
|
477
|
1 |
25 |
if (not defined $x) { } |
|
|
0 |
25 |
elsif (ref $x eq 'ARRAY') { } |
|
|
0 |
25 |
elsif (ref $x eq 'HASH') { } |
|
|
0 |
25 |
elsif (is_bool_val($x) and $x) { } |
|
|
0 |
25 |
elsif (is_bool_val($x)) { } |
|
490
|
12 |
13 |
unless (is_numeric($x)) |
|
498
|
0 |
26 |
if ($len > $WIDTH) |
|
515
|
8 |
5 |
if ($type eq 'ARRAY') { } |
|
|
5 |
0 |
elsif ($type eq 'HASH') { } |
|
|
0 |
0 |
elsif ($type) { } |
|
552
|
0 |
13 |
if ($len > $WIDTH * "0.97") |
|
558
|
0 |
13 |
if ($debug) |
|
561
|
0 |
0 |
if ($first) |
|
591
|
0 |
12 |
if (length $str == 1 and ord $str >= 127) |
|
596
|
10 |
2 |
if (defined $str and $str =~ /^[[:print:]\n\r\t]*$/u) |
|
606
|
2 |
0 |
if (not defined $x) { } |
|
618
|
0 |
0 |
if ($x != $x) |
|
630
|
0 |
0 |
if ($x * 2 == $x) |
|
664
|
2 |
80 |
unless (defined $value) |
|
665
|
2 |
78 |
if (length ref $value != 0) |
|
666
|
76 |
2 |
unless (&Scalar::Util::isdual($value)) |
|
669
|
1 |
1 |
if ($value == 1 and $value eq 1) |
|
670
|
1 |
0 |
if ($value == 0 and $value eq "") |
|
701
|
123 |
0 |
if ($color_available) |
|
706
|
0 |
0 |
if (not length $str or $str eq "reset") |
|
716
|
0 |
0 |
if (defined $fc and int $fc > 255) |
|
723
|
0 |
0 |
if ($cmd_num) |
|
724
|
0 |
0 |
if (defined $fc) |
|
725
|
0 |
0 |
if (defined $bc) |
|
726
|
0 |
0 |
if (defined $txt) |
|
733
|
2 |
0 |
if (not $ENV{'TERM'} or -t STDOUT == 0) |
|
740
|
0 |
0 |
if ($tput) { } |
|
755
|
9 |
2 |
unless ($s =~ /[\'\\\n\r\t\f\$\@]/u) |