Condition Coverage

blib/lib/Data/Dump/Color.pm
Criterion Covered Total %
condition 39 105 37.1


and 3 conditions

line !l l&&!r l&&r condition
58 15 44 0 $_ > $max and $max = $_
96 8 0 0 $Data::Dump::Color::COLOR and not defined $ct_obj
210 80 0 0 $] < "5.008" and $type eq "SCALAR"
254 0 0 0 defined $out and not @bless
265 0 1 0 $ref && $type eq 'SCALAR'
274 0 1 0 @$idx and $idx->[-1] eq "\$"
296 2 1 0 $class and $class eq "Regexp"
357 59 0 0 $class and not @$idx
386 0 0 0 $k eq "SCALAR" and not defined $$gval
533 0 59 0 defined $origk and length $origk >= $Data::Dump::Color::LENTHRESHOLD
534 0 59 0 defined $origv and length $origv >= $Data::Dump::Color::LENTHRESHOLD
535 0 0 59 $nl && length $visaid
536 0 0 59 $nl && length $visaid
558 78 0 1 $class and $ref
593 2 0 0 $ref and @i
2 0 0 $ref and @i and $i[0][0] eq "\$"
597 0 2 0 @i and $i[0][0] eq "\$"
666 9 5 0 @vals > $indent_lim and length $tmp > 60 || $tmp =~ /\n/
689 0 0 0 defined $orig[$i] and length $orig[$i] >= $Data::Dump::Color::LENTHRESHOLD
713 0 3 0 length $_ < 16384 and /^(.{2,5}?)\1*\z/s
723 41 0 2 length $_ > 40 and not /\\x\{/
41 2 0 length $_ > 40 and not /\\x\{/ and length $_ > length($_[0]) * 2
729 0 0 0 $Data::Dump::Color::TRY_BASE64 and length $_[0] > $Data::Dump::Color::TRY_BASE64
0 0 0 defined &utf8::is_utf8 and not utf8::is_utf8($_[0])
0 0 0 $Data::Dump::Color::TRY_BASE64 and length $_[0] > $Data::Dump::Color::TRY_BASE64 and (defined &utf8::is_utf8 and not utf8::is_utf8($_[0]))
0 0 0 $Data::Dump::Color::TRY_BASE64 and length $_[0] > $Data::Dump::Color::TRY_BASE64 and (defined &utf8::is_utf8 and not utf8::is_utf8($_[0])) and eval { do { require MIME::Base64 } }

or 3 conditions

line l !l&&r !l&&!r condition
151 1 0 7 %Data::Dump::Color::refcnt or %Data::Dump::Color::require
291 61 1 17 $type eq "SCALAR" or $type eq "REF"
62 0 17 $type eq "SCALAR" or $type eq "REF" or $type eq "REGEXP"
471 11 0 0 length $tmp > 60 or $tmp =~ /\n/
11 0 0 length $tmp > 60 or $tmp =~ /\n/ or $tied
605 0 0 2 $i->[0] eq "*" or $i->[0] eq "\$"
643 1 0 2 $v eq 0 or $v =~ /^-?[1-9]\d{0,9}\z/
666 0 0 5 length $tmp > 60 || $tmp =~ /\n/
0 0 14 $comment or @vals > $indent_lim and length $tmp > 60 || $tmp =~ /\n/