Branch Coverage

blib/lib/WARC/Record/Replay/HTTP/Message.pm
Criterion Covered Total %
branch 20 22 90.9


line true false branch
32 21 14 if ($handle)
39 64 25 if (/^($WARC::Record::Replay::HTTP::HTTP__token):\s+(.*)/o) { }
4 21 elsif (/^(\s+\S.*)$/) { }
21 0 elsif (/^$/) { }
54 13 8 if ($record->field('Content-Length') == $data_offset) { }
3 5 elsif ($record->field('Content-Length') - $data_offset < $WARC::Record::Replay::HTTP::Content_Deferred_Loading_Threshold) { }
69 26 9 if scalar grep($ob->{'_warc_defer'}{$_}, keys %{$$ob{'_warc_defer'};})
80 1 5 unless $self->{'_warc_record'}->field('Content-Length') - $self->{'_warc_data_offset'} < $WARC::Record::Replay::HTTP::Content_Maximum_Length
83 0 5 unless seek $handle, $self->{'_warc_data_offset'}, 0
93 5 13 if $self->{'_warc_defer'}{'content'}
101 1 7 if $self->{'_warc_defer'}{'content'}