Branch Coverage

blib/lib/MIME/Body.pm
Criterion Covered Total %
branch 26 34 76.4


line true false branch
216 0 10 unless my $fh = 'IO::File'->new(\$str, '>:')
237 36 148 if @_ > 1
254 7 67 if @_ > 1
312 113 219 if @_
431 0 148 if ($mode ne 'r' and $mode ne 'w')
437 35 113 if $self->binmode
449 3 0 if (defined $self->path)
450 0 3 unless unlink $self->path
498 0 2 if ref $data and ref $data eq 'ARRAY'
499 0 2 defined $data ? :
515 30 52 if $mode eq 'w'
517 30 52 if ($mode eq 'w') { }
52 0 elsif ($mode eq 'r') { }
573 28 13 if (not defined $data) { }
11 2 elsif (not ref $data) { }
1 1 elsif (ref $data eq 'SCALAR') { }
1 0 elsif (ref $data eq 'ARRAY') { }