Branch Coverage

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


line true false branch
25 0 479 unless defined $self->{'file_handle'}
77 3587 3514 if eof $self->{'file_handle'}
109 24 2581 if $self->end_of_file
118 0 2581 unless ($self->_read_header)
123 60 2521 unless ($self->_read_email_parts)
137 30 30 if (defined $content_length) { }
187 0 5666 if $backup_amount > $self->{'END_OF_EMAIL'} - $self->{'START_OF_EMAIL'}
194 161 3825 if $end_of_string =~ /$endline-----(?: Begin Included Message |Original Message)-----${endline}[^\r\n]*(?:$endline)*$/i
197 1747 2078 unless $end_of_string =~ /$endline$endline$/
218 0 655 if length $self->{'READ_BUFFER'} < $backup_amount
224 234 421 if ($shift_amount == 0) { }
231 503 152 unless ($self->_read_until_match(qr/$Mail::Mbox::MessageParser::Config{'from_pattern'}/m, $backup_amount))
250 675 1966 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 1966 615 unless defined $boundary
282 60 555 unless $self->_read_until_match(qr/^--\Q$boundary\E--$endline/m, 76)
315 0 2581 unless $self->_read_until_match(qr/$self->{'endline'}$self->{'endline'}/m, 0)
336 968 3362 if (not defined pos $self->{'READ_BUFFER'} or pos($self->{'READ_BUFFER'}) - $backup <= 0) { }
345 3767 1498 if ($self->{'READ_BUFFER'} =~ /($pattern)/gm)
353 563 935 unless ($self->_read_chunk)
358 523 412 if (pos($self->{'READ_BUFFER'}) - $backup <= 0) { }
376 0 1498 if ($self->{'READ_CHUNK_SIZE'} == 0) { }
380 0 0 if eof $self->{'file_handle'}
400 1072 935 if ($amount_read == 0)
402 509 563 unless $total_amount_read == 0