Branch Coverage

blib/lib/Mail/Box/MH.pm
Criterion Covered Total %
branch 66 104 63.4


line true false branch
45 0 28 unless -d $directory
54 0 0 'File::Spec'->file_name_is_absolute($_) ? :
28 0 !defined($_) ? :
65 0 0 'File::Spec'->file_name_is_absolute($_) ? :
28 0 !defined($_) ? :
80 0 2 if -d $directory
82 2 0 if (mkdir $directory, 448) { }
94 21 0 @_ % 2 ? :
99 1 20 unless -d $directory
100 14 6 if -f "$directory/1"
105 0 6 unless opendir DIR, $directory
107 24 0 unless /^\d+$/
125 18 28 if (ref $class) { }
142 0 46 unless -d $dir and opendir DIR, $dir
144 56 292 if not /^\d+$|^\./ and -d "$dir/$_"
151 1 45 if ($args{'skip_empty'})
155 2 4 if (-f "$dir/$subdir/1")
161 0 4 unless opendir DIR, "$dir/$subdir"
165 0 4 if (grep /^\d+$/, @entities)
171 3 1 unless -d "$dir/$subdir/$_"
183 53 0 /(.*)/ && $1 ? :
184 37 9 unless $args{'check'}
195 0 9 unless (-d $subdir or mkdir $subdir, 493)
215 1 0 exists $args{'messages'} ? :
0 1 exists $args{'message'} ? :
218 0 1 unless my $self = $class->new(@_, 'access', 'r')
222 0 1 unless -d $directory
225 0 1 unless ($locker->lock)
234 0 1 unless $message->create($filename)
257 1 0 if exists $self->{'MBM_highest_msgnr'}
261 0 0 unless opendir DIR, $directory
273 19 10 unless $self->{'MBM_keep_index'}
274 6 4 if defined $self->{'MBM_index'}
288 8 21 if defined $self->{'MBM_labels'}
301 0 17 unless opendir DIR, $dirname
306 434 51 /^(\d+)$/ && -f "$dirname/$1" ? :
320 0 17 unless -d $directory
323 0 17 unless $locker->lock
328 17 0 unless ($index)
330 4 13 if $index
334 17 0 unless ($labels)
336 17 0 if $labels
348 94 340 if $index
358 434 0 $labels ? :
359 79 355 $labref ? :
377 0 9 unless opendir DIR, $dir
400 0 11 unless $locker->lock
403 2 9 exists $args->{'renumber'} ? :
413 264 45 if ($renumber or not $filename) { }
427 11 0 if $labels
430 5 6 if $index
437 0 0 if (not @messages and $self->{'MB_remove_empty'})