Branch Coverage

blib/lib/Mail/Box/Parser/Perl.pm
Criterion Covered Total %
branch 31 72 43.0


line true false branch
26 0 7 unless $self->SUPER::init($args)
36 0 2 if $sep eq 'From '
43 0 2 if $sep eq 'From '
49 0 2 @_ ? :
64 12 34 if $line =~ /$empty/
67 0 34 unless (defined $body)
71 0 0 if (@ret and $self->fixHeaderErrors) { }
82 0 34 unless length $body
86 3 34 $line =~ /^[ \t]/ ? :
102 0 0 unless defined $sep
106 0 0 unless $file->seek($where, 0)
114 0 0 unless defined $line
116 0 0 if substr($line, 0, length $sep) eq $sep
124 0 6 unless defined $sep
135 0 6 unless defined $line
138 6 0 if substr($line, 0, length $sep) eq $sep
153 6 7 if (@seps) { }
158 0 24 unless my $line = $file->getline
162 33 6 if substr($line, 0, length $sep) ne $sep
165 0 6 if $sep eq 'From ' and not $line =~ / 19[789][0-9]| 20[0-9][0-9]/
175 5 1 if (@$lines and $lines->[-1] =~ s/(\r?\n)\z//)
176 5 0 if length $lines->[-1] == 0
180 7 0 ref $file eq 'Mail::Box::FastScalar' ? :
185 13 0 if ($lines)
186 0 13 if ($self->{'MBPP_strip_gt'})
189 0 13 unless ($self->{'MBPP_trusted'})
217 0 0 if (defined $exp_chars and $exp_chars >= 0)
221 0 0 if ($self->_is_good_end($end))
223 0 0 if $self->{'MBPP_strip_gt'}
257 0 0 if (defined $exp_chars)
260 0 0 if ($self->_is_good_end($end))
273 0 7 unless my $mode = $args->{'mode'}
276 0 7 unless $fh
279 7 0 if $fh->can('binmode') or $fh->can('BINMODE')
294 7 7 unless my $file = delete $self->{'MBPP_file'}
304 0 0 @_ ? :