Branch Coverage

blib/lib/Mail/Message/Body/File.pm
Criterion Covered Total %
branch 11 34 32.3


line true false branch
35 0 0 unless open my $in, "<:raw", $filename
39 0 0 unless open my $out, ">:raw", $file
54 0 1 unless open my $out, ">:raw", $file
71 0 1 unless open my $out, ">:raw", $file
84 0 0 unless copy($self->tempFilename, $clone->tempFilename)
95 2 0 if defined $self->{'MMBF_nrlines'}
100 0 0 unless open my $in, "<:raw", $file
113 0 2 if exists $self->{'MMBF_size'}
117 0 2 if $Mail::Message::crlf_platform
128 0 3 unless open my $in, "<:raw", $file
139 0 3 unless open my $in, "<:raw", $file
143 2 1 wantarray ? :
158 0 2 unless open my $in, "<:raw", $file
172 0 0 unless open my $in, "<:raw", $file
177 0 0 unless $char eq "\n"
185 0 0 unless open my $out, ">:raw", $file
199 0 15 if (@_) { }