| line |
!l |
l&&!r |
l&&r |
condition |
|
115
|
98 |
1 |
13 |
$paren and not $has_qw |
|
117
|
98 |
1 |
13 |
$paren and not $has_qw |
|
187
|
105 |
24 |
0 |
@$values > $indent_lim and length $tmp > $Data::Pretty::LINEWIDTH || $tmp =~ /\n/ |
|
194
|
0 |
0 |
0 |
scalar @buf and length $Data::Pretty::INDENT . join(" ", @buf, $v) > $Data::Pretty::LINEWIDTH |
|
229
|
32 |
3 |
6 |
$ref and @i |
|
|
35 |
4 |
2 |
$ref and @i and $i[0] eq "\$" |
|
233
|
13 |
28 |
5 |
@i and $i[0] eq "\$" |
|
303
|
0 |
8 |
2 |
length $_ < 16384 and /^(.{2,5}?)\1*\z/s |
|
314
|
301 |
1 |
7 |
length $_ > 40 and not /\\x\{/ |
|
|
302 |
4 |
3 |
length $_ > 40 and not /\\x\{/ and length $_ > length($_[0]) * 2 |
|
320
|
1 |
0 |
2 |
$Data::Pretty::TRY_BASE64 and length $_[0] > $Data::Pretty::TRY_BASE64 |
|
|
0 |
1 |
1 |
defined &utf8::is_utf8 and not utf8::is_utf8($_[0]) |
|
|
1 |
1 |
1 |
$Data::Pretty::TRY_BASE64 and length $_[0] > $Data::Pretty::TRY_BASE64 and (defined &utf8::is_utf8 and not utf8::is_utf8($_[0])) |
|
|
1 |
0 |
1 |
$Data::Pretty::TRY_BASE64 and length $_[0] > $Data::Pretty::TRY_BASE64 and (defined &utf8::is_utf8 and not utf8::is_utf8($_[0])) and eval {
do {
require MIME::Base64
}
} |
|
370
|
1400 |
0 |
0 |
$] < "5.008" and $type eq "SCALAR" |
|
417
|
9 |
0 |
2 |
defined $out and not @bless |
|
428
|
2 |
8 |
9 |
$ref && $type eq 'SCALAR' |
|
434
|
0 |
3 |
1 |
@$idx and $idx->[-1] eq "\$" |
|
452
|
19 |
4 |
9 |
$class and $class eq "Regexp" |
|
508
|
1211 |
2 |
1 |
$class and not @$idx |
|
541
|
7 |
5 |
29 |
$k eq "SCALAR" and not defined $$gval |
|
648
|
860 |
21 |
26 |
defined $this_type and $this_type eq "HASH" |
|
668
|
53 |
854 |
0 |
$nl and $klen_pad > length $key |
|
676
|
1 |
0 |
1 |
$Data::Pretty::CODE_DEPARSE and eval {
do {
require B::Deparse
}
} |
|
702
|
1363 |
4 |
14 |
$class and $ref |
|
730
|
0 |
361 |
8 |
not ref $v and $v =~ /[\,\\\#[:blank:]\h\v\a\b\t\n\f\r\e\@\"\$]/ |
| line |
l |
!l&&r |
!l&&!r |
condition |
|
119
|
10 |
4 |
98 |
%Data::Pretty::refcnt or %Data::Pretty::require |
|
152
|
2 |
35 |
279 |
$v eq 0 or $v =~ /^-?[1-9]\d{0,9}\z/ |
|
187
|
0 |
0 |
24 |
length $tmp > $Data::Pretty::LINEWIDTH || $tmp =~ /\n/ |
|
|
1 |
0 |
129 |
$comment or @$values > $indent_lim and length $tmp > $Data::Pretty::LINEWIDTH || $tmp =~ /\n/ |
|
240
|
4 |
3 |
28 |
$i eq "*" or $i eq "\$" |
|
445
|
1225 |
12 |
142 |
$type eq "SCALAR" or $type eq "REF" |
|
|
1237 |
9 |
133 |
$type eq "SCALAR" or $type eq "REF" or $type eq "REGEXP" |
|
657
|
22 |
0 |
40 |
length $tmp > $Data::Pretty::LINEWIDTH or $tmp =~ /\n/ |
|
|
22 |
1 |
39 |
length $tmp > $Data::Pretty::LINEWIDTH or $tmp =~ /\n/ or $tied |
|
|
1 |
0 |
39 |
length $tmp > $Data::Pretty::LINEWIDTH or $tmp =~ /\n/ or $tied or $need_breakdown |
|
730
|
3 |
56 |
374 |
not defined $v or ref $v |
|
|
59 |
5 |
369 |
not defined $v or ref $v or substr(overload::StrVal(\$v), 0, 7) eq "VSTRING" |
|
|
61 |
8 |
361 |
not defined $v or ref $v or substr(overload::StrVal(\$v), 0, 7) eq "VSTRING" or not ref $v and $v =~ /[\,\\\#[:blank:]\h\v\a\b\t\n\f\r\e\@\"\$]/ |
|
742
|
28 |
90 |
12 |
$only_numbers == scalar @$rval or scalar @$rval == 1 |
|
753
|
0 |
0 |
0 |
ref $this || $this |