Branch Coverage

blib/lib/Mail/Box/Test.pm
Criterion Covered Total %
branch 31 62 50.0


line true false branch
68 0 42 $windows ? :
84 11 0 unless opendir DIR, $dir
86 0 0 if /(.*)/
89 0 0 if (-d $_) { }
108 0 0 unless mkdir $dest
111 0 0 unless opendir ORIG, $orig
114 0 0 !/^\.\.?$/ && /(.*)/ ? :
116 0 0 if -d $from
119 0 0 unless copy($from, $to)
138 0 6 unless open FILE, $file
142 270 19818 if (/^From /)
145 0 270 unless open OUT, ">$dir/" . $count++
146 6 264 if $count == 13
150 2130 17688 if defined $blank
153 2400 17418 if (/^\015?\012$/)
221 0 4 unless @maildir_names == 45
223 0 4 unless mkdir $dir
224 0 4 unless mkdir "File::Spec"->catfile($dir, "cur")
225 0 4 unless mkdir "File::Spec"->catfile($dir, "new")
226 0 4 unless mkdir "File::Spec"->catfile($dir, "tmp")
229 0 4 unless open FILE, $file
236 180 13212 if (/^From /)
242 16 164 $msgnr > 40 ? :
247 0 180 unless open OUT, ">", $msgfile
251 1420 11792 if defined $blank
254 1600 11612 if (/^\015?\012$/)
274 0 16 unless @$first == @$second
276 0 193 unless $$first[$i] eq $$second[$i]
289 0 0 if ($crlf_platform)
320 0 6 if ($crlf_platform)
335 0 3 unless opendir LISTDIR, $dir