Branch Coverage

blib/lib/WARC/Record/Logical.pm
Criterion Covered Total %
branch 32 32 100.0


line true false branch
67 12 5 if defined $member->{'collection'}
70 1 16 unless $member_segment_number
76 8 8 if ($member_segment_number == 1) { }
80 1 7 unless $segment_origin_id
82 3 4 if (defined $member->{'collection'} and $member->{'collection'}->searchable('record_id'))
86 2 1 if defined $first_segment
94 3 12 unless defined $first_segment
100 7 5 if (defined $member->{'collection'} and $member->{'collection'}->searchable('segment_origin_id'))
108 3 3 if @pool and $pool[-1]->field('WARC-Segment-Number') == 1 + @pool and $pool[-1]->field('WARC-Segment-Total-Length')
119 3 9 unless scalar @pool > 0
137 1 32 unless $record[$i]->field('WARC-Segment-Number') == 1 + $i
139 1 31 unless $i == 0 or $record[$i]->field('WARC-Segment-Origin-ID') eq $record[0]->id
143 1 6 unless $record[-1]->field('WARC-Segment-Total-Length')
155 2 20 unless defined $fields->field($key)
180 1 26 if not ref $running_base and $running_base + $row[1] < $running_base
208 10 3 if (wantarray) { }