| line |
true |
false |
branch |
|
57
|
0 |
34 |
if ($disable) |
|
64
|
3 |
31 |
if ($cnt > 1 or $cnt == 0) |
|
74
|
0 |
34 |
unless (@items) |
|
81
|
3 |
31 |
if ($is_array) |
|
86
|
3 |
31 |
if ($cnt > 1 or $cnt == 0) |
|
90
|
34 |
0 |
if ($return_string) { } |
|
117
|
10 |
38 |
if ($type eq 'ARRAY') { } |
|
|
1 |
37 |
elsif ($type eq 'HASH') { } |
|
|
3 |
34 |
elsif ($type eq 'SCALAR') { } |
|
|
2 |
32 |
elsif (not $type and is_bool_val($x)) { } |
|
|
10 |
22 |
elsif (not $type and is_integer($x)) { } |
|
|
1 |
21 |
elsif (not $type and is_float($x)) { } |
|
|
14 |
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) { } |
|
158
|
1 |
1 |
if ($x) { } |
|
198
|
0 |
0 |
if ($promote_bool and $class eq "JSON::PP::Boolean") |
|
207
|
0 |
0 |
if ($reftype eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($reftype eq 'HASH') { } |
|
|
0 |
0 |
elsif ($reftype eq 'SCALAR') { } |
|
252
|
2 |
12 |
if (length $x == 0) |
|
266
|
1 |
11 |
if (not $printable and length $x < 20) { } |
|
|
0 |
11 |
elsif (not $printable) { } |
|
|
5 |
6 |
elsif ($x =~ m[^[\w .,":;?!#\$%^*&/=-]*$]gu) { } |
|
273
|
2 |
1 |
if ($is_printable) { } |
|
310
|
0 |
10 |
if (ref $x ne "ARRAY") |
|
317
|
2 |
8 |
if ($cnt == 0) |
|
331
|
0 |
8 |
if ($column_mode) { } |
|
360
|
1 |
0 |
if ($hash_sort) |
|
364
|
1 |
0 |
if ($cnt == 0) |
|
380
|
0 |
0 |
unless ($column_mode) |
|
387
|
0 |
0 |
if ($key =~ /\W/u) |
|
398
|
0 |
0 |
if ($keys_need_quotes) { } |
|
405
|
0 |
0 |
if ($column_mode) |
|
410
|
0 |
0 |
if ($append_cnt < 0) |
|
421
|
0 |
0 |
if ($column_mode) { } |
|
450
|
0 |
0 |
if ($len > $max) |
|
464
|
1 |
13 |
if (not defined $x) { } |
|
|
0 |
13 |
elsif (ref $x eq 'ARRAY') { } |
|
|
0 |
13 |
elsif (ref $x eq 'HASH') { } |
|
|
0 |
13 |
elsif (is_bool_val($x) and $x) { } |
|
|
0 |
13 |
elsif (is_bool_val($x)) { } |
|
477
|
6 |
7 |
unless (is_numeric($x)) |
|
485
|
0 |
14 |
if ($len > $WIDTH) |
|
502
|
8 |
0 |
if ($type eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($type eq 'HASH') { } |
|
|
0 |
0 |
elsif ($type) { } |
|
539
|
0 |
8 |
if ($len > $WIDTH * "0.97") |
|
545
|
0 |
8 |
if ($debug) |
|
548
|
0 |
0 |
if ($first) |
|
576
|
0 |
15 |
if (length $str == 1 and ord $str >= 127) |
|
581
|
13 |
2 |
if (defined $str and $str =~ /^[[:print:]\n\r\t]*$/u) |
|
591
|
2 |
0 |
if (not defined $x) { } |
|
603
|
0 |
0 |
if ($x != $x) |
|
615
|
0 |
0 |
if ($x * 2 == $x) |
|
645
|
2 |
53 |
unless (defined $value) |
|
646
|
2 |
51 |
if (length ref $value != 0) |
|
647
|
49 |
2 |
unless (&Scalar::Util::isdual($value)) |
|
650
|
1 |
1 |
if ($value == 1 and $value eq 1) |
|
651
|
1 |
0 |
if ($value == 0 and $value eq "") |
|
670
|
114 |
0 |
if ($color_available) |
|
675
|
0 |
0 |
if (not length $str or $str eq "reset") |
|
685
|
0 |
0 |
if (defined $fc and int $fc > 255) |
|
692
|
0 |
0 |
if ($cmd_num) |
|
693
|
0 |
0 |
if (defined $fc) |
|
694
|
0 |
0 |
if (defined $bc) |
|
695
|
0 |
0 |
if (defined $txt) |
|
702
|
2 |
0 |
if (not $ENV{'TERM'} or -t STDOUT == 0) |
|
709
|
0 |
0 |
if ($tput) { } |
|
724
|
3 |
0 |
unless ($s =~ /[\'\\\n\r\t\f\b\$\@"]/u) |
|
749
|
0 |
2 |
if (eval {
do {
require Data::Dump::Color
}
}) { } |