Branch Coverage

blib/lib/Mail/Mbox/MessageParser/Perl.pm
Criterion Covered Total %
branch 41 50 82.0


line true false branch
25 0 392 unless defined $self->{'file_handle'}
77 2663 3506 if eof $self->{'file_handle'}
109 22 2264 if $self->end_of_file
118 0 2264 unless ($self->_read_header)
123 60 2204 unless ($self->_read_email_parts)
137 30 30 if (defined $content_length) { }
187 0 5390 if $backup_amount > $self->{'END_OF_EMAIL'} - $self->{'START_OF_EMAIL'}
194 113 3597 if $end_of_string =~ /$endline-----(?: Begin Included Message |Original Message)-----${endline}[^\r\n]*(?:$endline)*$/i
197 1747 1850 unless $end_of_string =~ /$endline$endline$/
218 0 566 if length $self->{'READ_BUFFER'} < $backup_amount
224 234 332 if ($shift_amount == 0) { }
231 414 152 unless ($self->_read_until_match(qr/$Mail::Mbox::MessageParser::Config{'from_pattern'}/m, $backup_amount))
250 675 1649 if (substr($self->{'READ_BUFFER'}, $self->{'START_OF_EMAIL'}, $self->{'START_OF_BODY'} - $self->{'START_OF_EMAIL'}) =~ /^(content-type: *multipart[^\n\r]*$endline( [^\n\r]*$endline)*)/im)
257 675 0 if ($content_type_header =~ /boundary *= *"([^"]*)"/i or $content_type_header =~ m[boundary *= *([-0-9A-Za-z'()+_,./:=? ]*[-0-9A-Za-z'()+_,./:=?])]i)
275 1649 615 unless defined $boundary
282 60 555 unless $self->_read_until_match(qr/^--\Q$boundary\E--$endline/m, 76)
315 0 2264 unless $self->_read_until_match(qr/$self->{'endline'}$self->{'endline'}/m, 0)
336 790 3047 if (not defined pos $self->{'READ_BUFFER'} or pos($self->{'READ_BUFFER'}) - $backup <= 0) { }
345 3363 1318 if ($self->{'READ_BUFFER'} =~ /($pattern)/gm)
353 474 844 unless ($self->_read_chunk)
358 432 412 if (pos($self->{'READ_BUFFER'}) - $backup <= 0) { }
376 0 1318 if ($self->{'READ_CHUNK_SIZE'} == 0) { }
380 0 0 if eof $self->{'file_handle'}
400 892 844 if ($amount_read == 0)
402 418 474 unless $total_amount_read == 0