Branch Coverage

blib/lib/Mail/Box/Test.pm
Criterion Covered Total %
branch 31 60 51.6


line true false branch
74 0 42 $windows ? :
89 11 0 unless opendir my $dh, $dir
95 0 0 if (-d $_) { }
114 0 0 unless mkdir $dest
117 0 0 unless opendir my $dh, $orig
120 0 0 !/^\.\.?$/ && /(.*)/ ? :
122 0 0 if -d $from
125 0 0 unless copy($from, $to)
145 0 6 unless open my $fh, "<:raw", $file
150 270 19818 if (/^From /)
153 0 270 unless open $out, ">", "$dir/" . $count++
154 6 264 if $count == 13
158 2130 17688 if defined $blank
160 2400 17418 if (/^\015?\012$/)
227 0 4 unless @maildir_names == 45
228 0 4 unless mkdir $dir
229 0 4 unless mkdir catfile($dir, "cur")
230 0 4 unless mkdir catfile($dir, "new")
231 0 4 unless mkdir catfile($dir, "tmp")
233 0 4 unless open my $fh, "<:raw", $file
242 180 13212 if (/^From /)
248 16 164 $msgnr > 40 ? :
250 0 180 unless open $out, ">:raw", $msgfile
256 1420 11792 if defined $blank
258 1600 11612 if (/^\015?\012$/)
278 0 16 unless @$first == @$second
280 0 193 unless $first->[$i] eq $second->[$i]
293 0 0 if ($crlf_platform)
323 0 6 if ($crlf_platform)
338 0 3 unless opendir my $list, $dir