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
57 15 44 0 $_ > $max and $max = $_
95 8 0 0 $Data::Dump::Color::COLOR and not defined $ct_obj
209 80 0 0 $] < "5.008" and $type eq "SCALAR"
253 0 0 0 defined $out and not @bless
264 0 1 0 $ref && $type eq 'SCALAR'
273 0 1 0 @$idx and $idx->[-1] eq "\$"
295 2 1 0 $class and $class eq "Regexp"
356 59 0 0 $class and not @$idx
385 0 0 0 $k eq "SCALAR" and not defined $$gval
532 0 59 0 defined $origk and length $origk >= $Data::Dump::Color::LENTHRESHOLD
533 0 59 0 defined $origv and length $origv >= $Data::Dump::Color::LENTHRESHOLD
534 0 0 59 $nl && length $visaid
535 0 0 59 $nl && length $visaid
557 78 0 1 $class and $ref
592 2 0 0 $ref and @i
2 0 0 $ref and @i and $i[0][0] eq "\$"
596 0 2 0 @i and $i[0][0] eq "\$"
665 9 5 0 @vals > $indent_lim and length $tmp > 60 || $tmp =~ /\n/
688 0 0 0 defined $orig[$i] and length $orig[$i] >= $Data::Dump::Color::LENTHRESHOLD
712 0 3 0 length $_ < 16384 and /^(.{2,5}?)\1*\z/s
722 41 0 2 length $_ > 40 and not /\\x\{/
41 2 0 length $_ > 40 and not /\\x\{/ and length $_ > length($_[0]) * 2
728 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
150 1 0 7 %Data::Dump::Color::refcnt or %Data::Dump::Color::require
290 61 1 17 $type eq "SCALAR" or $type eq "REF"
62 0 17 $type eq "SCALAR" or $type eq "REF" or $type eq "REGEXP"
470 11 0 0 length $tmp > 60 or $tmp =~ /\n/
11 0 0 length $tmp > 60 or $tmp =~ /\n/ or $tied
604 0 0 2 $i->[0] eq "*" or $i->[0] eq "\$"
642 1 0 2 $v eq 0 or $v =~ /^-?[1-9]\d{0,9}\z/
665 0 0 5 length $tmp > 60 || $tmp =~ /\n/
0 0 14 $comment or @vals > $indent_lim and length $tmp > 60 || $tmp =~ /\n/