Branch Coverage

blib/lib/Mail/Dir.pm
Criterion Covered Total %
branch 0 90 0.0


line true false branch
105 0 0 unless $dir
112 0 0 if ($opts{'create'}) { }
113 0 0 unless (-d $dir)
114 0 0 unless mkdir $dir
118 0 0 unless -d $dir
126 0 0 $opts{'maildir++'} ? :
136 0 0 unless my @components = split(/\./, $mailbox, 0)
140 0 0 if ($first =~ /^\~/)
145 0 0 if $component eq ''
146 0 0 if $component =~ m[/]
159 0 0 if ($mailbox eq $DEFAULT_MAILBOX)
185 0 0 unless $self->{'maildir++'}
189 0 0 unless -d $self->mailbox_dir($mailbox)
222 0 0 if @components
239 0 0 unless $self->{'maildir++'}
240 0 0 unless $self->mailbox_exists(parent_mailbox($mailbox))
247 0 0 unless mkdir $dir
256 0 0 unless my $from = $args{'from'}
257 0 0 $args{'time'} ? :
261 0 0 if ($self->{'maildir++'})
264 0 0 if (defined $args{'size'}) { }
0 0 elsif (not ref $from) { }
268 0 0 unless my(@st) = stat $from
272 0 0 if (defined $size)
288 0 0 unless sysopen my $fh_to, $to, &Fcntl::O_CREAT | &Fcntl::O_WRONLY
290 0 0 if (ref $from eq 'CODE') { }
301 0 0 if (ref $from eq 'GLOB') { }
0 0 elsif (ref $from eq '') { }
305 0 0 unless sysopen $fh_from, $from, &Fcntl::O_RDONLY
315 0 0 unless ref $from eq 'GLOB'
356 0 0 unless defined $from
358 0 0 unless my $oldcwd = Cwd::getcwd()
367 0 0 unless chdir $dir
371 0 0 if -e $file_tmp
386 0 0 unless (rename $file_tmp, $file_new)
390 0 0 unless my(@st) = stat $file_new
392 0 0 unless chdir $oldcwd
442 0 0 unless $opts{$key}
446 0 0 unless opendir my $dh, $path
449 0 0 if $item =~ /^\./
452 0 0 unless my(@st) = stat $file
463 0 0 if (defined $opts{'filter'})
464 0 0 unless $opts{'filter'}->($message)
498 0 0 $time - $message->{'atime'} > $MAX_TMP_LAST_ACCESS ? :
503 0 0 unless unlink $message->{'file'}