Branch Coverage

blib/lib/Mail/Message/Body/String.pm
Criterion Covered Total %
branch 7 16 43.7


line true false branch
32 0 0 unless (open IN, "<", $filename)
48 0 1 if (ref $fh eq 'Mail::Box::FastScalar') { }
71 1 0 unless @$lines == 1
72 0 1 @$lines == 1 ? :
83 2 0 if defined $self->{'MMBS_nrlines'}
86 0 0 unless $self->{'MMBS_scalar'} =~ /\n\z/
96 2 1 wantarray ? :
104 0 2 if (ref $fh eq 'GLOB') { }