Condition Coverage

lib/Data/Pretty.pm
Criterion Covered Total %
condition 106 144 73.6


and 2 conditions

line l !l condition
670 21 25 defined $this_type and $this_type eq "HASH" and ref $rval->{$orig} eq "HASH" and scalar keys %{$$rval{$orig};}

and 3 conditions

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 "\$"
284 6 10 0 $Data::Pretty::SHOW_UTF8 and utf8::is_utf8($_)
323 0 8 2 length $_ < 16384 and /^(.{2,5}?)\1*\z/s
334 301 1 7 length $_ > 40 and not /\\x\{/
302 4 3 length $_ > 40 and not /\\x\{/ and length $_ > length($_[0]) * 2
340 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 } }
390 1495 0 0 $] < "5.008" and $type eq "SCALAR"
437 9 0 2 defined $out and not @bless
447 1463 9 8 $s = $Data::Pretty::seen{$id} and $type ne "SCALAR"
450 0 8 0 $ref && $type eq 'SCALAR'
456 0 1 1 @$idx and $idx->[-1] eq "\$"
474 28 4 9 $class and $class eq "Regexp"
530 1308 2 1 $class and not @$idx
563 7 5 30 $k eq "SCALAR" and not defined $$gval
670 947 21 25 defined $this_type and $this_type eq "HASH"
968 0 25 defined $this_type and $this_type eq "HASH" and ref $rval->{$orig} eq "HASH"
690 48 945 0 $nl and $klen_pad > length $key
698 1 0 1 $Data::Pretty::CODE_DEPARSE and eval { do { require B::Deparse } }
725 1469 4 14 $class and $ref
753 0 361 8 not ref $v and $v =~ /[\,\\\#[:blank:]\h\v\a\b\t\n\f\r\e\@\"\$]/

or 2 conditions

line l !l condition
377 1495 0 $rval // ""
388 0 0 $rval // ""
393 0 0 $class || 'undef'
666 993 0 $$val // ""
667 46 0 $$val // ""

or 3 conditions

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 "\$"
467 1331 12 142 $type eq "SCALAR" or $type eq "REF"
1343 9 133 $type eq "SCALAR" or $type eq "REF" or $type eq "REGEXP"
679 22 0 39 length $tmp > $Data::Pretty::LINEWIDTH or $tmp =~ /\n/
22 1 38 length $tmp > $Data::Pretty::LINEWIDTH or $tmp =~ /\n/ or $tied
1 0 38 length $tmp > $Data::Pretty::LINEWIDTH or $tmp =~ /\n/ or $tied or $need_breakdown
753 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\@\"\$]/
765 28 90 12 $only_numbers == scalar @$rval or scalar @$rval == 1
776 0 0 0 ref $this || $this