| 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
|
28 |
0 |
0 |
$ref and @i |
|
|
28 |
0 |
0 |
$ref and @i and $i[0] eq "\$" |
|
233
|
6 |
22 |
1 |
@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
|
1409 |
0 |
0 |
$] < "5.008" and $type eq "SCALAR" |
|
417
|
9 |
0 |
2 |
defined $out and not @bless |
|
427
|
1377 |
9 |
8 |
$s = $Data::Pretty::seen{$id} and $type ne "SCALAR" |
|
430
|
0 |
8 |
0 |
$ref && $type eq 'SCALAR' |
|
436
|
0 |
1 |
1 |
@$idx and $idx->[-1] eq "\$" |
|
454
|
28 |
4 |
9 |
$class and $class eq "Regexp" |
|
510
|
1222 |
2 |
1 |
$class and not @$idx |
|
543
|
7 |
5 |
29 |
$k eq "SCALAR" and not defined $$gval |
|
650
|
860 |
21 |
26 |
defined $this_type and $this_type eq "HASH" |
|
670
|
53 |
854 |
0 |
$nl and $klen_pad > length $key |
|
678
|
1 |
0 |
1 |
$Data::Pretty::CODE_DEPARSE and eval {
do {
require B::Deparse
}
} |
|
705
|
1383 |
4 |
14 |
$class and $ref |
|
733
|
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
|
8 |
4 |
100 |
%Data::Pretty::refcnt or %Data::Pretty::require |
|
152
|
2 |
38 |
276 |
$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 |
22 |
$i eq "*" or $i eq "\$" |
|
447
|
1245 |
12 |
142 |
$type eq "SCALAR" or $type eq "REF" |
|
|
1257 |
9 |
133 |
$type eq "SCALAR" or $type eq "REF" or $type eq "REGEXP" |
|
659
|
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 |
|
733
|
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\@\"\$]/ |
|
745
|
28 |
90 |
12 |
$only_numbers == scalar @$rval or scalar @$rval == 1 |
|
756
|
0 |
0 |
0 |
ref $this || $this |