Branch Coverage

blib/lib/Mail/Box/Dir/Message.pm
Criterion Covered Total %
branch 25 42 59.5


line true false branch
27 737 0 if $args->{'filename'}
42 45 181 if $self->isModified
46 181 0 if ($filename and -r $filename)
47 181 0 if (open my $in, '<:raw', $filename)
69 975 2069 @_ ? :
81 0 0 unless ($self->isModified)
83 0 0 if (defined $filename)
85 0 0 if defined $size
99 24 0 if $filename
116 0 287 unless ($parser)
130 127 279 unless $head->isDelayed
135 0 279 unless my $parser = $self->parser
152 142 8 unless $body->isDelayed
155 0 8 unless my $parser = $self->parser
157 2 6 if ($head->isDelayed) { }
159 2 0 if (defined $head) { }
176 0 8 unless (defined $newbody)
192 91 225 if $filename eq $old and not $self->isModified
198 0 225 unless $newfile
209 181 44 if $old
211 0 225 unless move($new, $filename)