Branch Coverage

blib/lib/Digest/Directory/BASE.pm
Criterion Covered Total %
branch 64 92 69.5


line true false branch
148 0 6 unless $t >= 0
178 0 3 unless $$self{'quiet'}
181 3 0 if (open FILE, "<$file") { }
185 7 24 if (/^[ \t]*\-[ \t]*(.*)[ \t]*$/) { }
9 15 elsif (/^[ \t]*\+[ \t]*(.*)[ \t]*$/) { }
1 14 elsif (/^[ \t]*\![ \t]*trim[ \t]*=[ \t]*([\d]+)/i) { }
1 13 elsif (/^[ \t]*\![ \t]*quiet[ \t]*=[ \t]*([\d]+)/i) { }
231 0 41 unless $$self{'quiet'}
256 0 10 unless $$self{'quiet'}
341 42 13 if (/^= ([^=]*==[ ]*[\d]*)[ ]*([^\r\n]*).*$/) { }
13 0 elsif (/^# ([^=]*==).*$/) { }
378 0 6 unless $$self{'quiet'}
384 0 6 if (/^http/gi)
386 6 0 if (defined $user and defined $pass)
392 6 0 if ($res->is_success) { }
428 0 7 unless $$self{'quiet'}
431 7 0 if (open FILE, "<$file") { }
469 0 15 unless $$self{'quiet'}
472 15 0 if (open FILE, ">$file") { }
481 15 0 if (length $$self{'summary'})
523 0 32 unless $$self{'quiet'}
544 0 149 unless (@stat)
554 4 7 if (not $exclude and $file =~ /$e/)
560 145 4 if (not $exclude)
564 91 54 if (not S_ISDIR($mode))
566 91 0 if (open FILE, $file) { }
608 12 0 if $string
640 17 0 unless defined $nodetails
641 17 0 unless defined $nosummary
646 17 0 unless ($nodetails)
658 17 0 unless ($nosummary)
662 16 1 if (length $$self{'summary'})
676 30 1 if (not length $$self{'summary'} and scalar keys %{$$self{'digests'};})
722 6 9 unless defined $nodetails
723 6 9 unless defined $nosummary
724 6 9 unless defined $showequal
726 12 3 unless ($nodetails)
728 0 12 unless $$self{'quiet'}
736 4 39 if (not defined $digests_l{$f}) { }
743 2 37 if ($c ne $digests_l{$f}) { }
750 0 37 if $showequal
764 9 6 unless ($nosummary)
766 0 9 unless $$self{'quiet'}
769 7 2 if ($peer->summary ne $self->summary) { }
0 2 elsif ($showequal) { }
780 0 15 unless $$self{'quiet'}