Branch Coverage

blib/lib/WARC/Record/Sponge.pm
Criterion Covered Total %
branch 31 32 96.8


line true false branch
114 1 2 unless (@_)
126 1 1 unless $self->{'writing'}
162 1 3 unless $cell
208 3 3 unless $key eq 'WARC-Type'
247 1 1 if ($self->{'writing'}) { }
252 1 11 unless ($self->{'writing'})
256 1 6 defined $, ? :
257 1 6 if defined $\
263 1 2 if $self->{'writing'}
268 1 2 if $self->{'writing'}
278 1 9 if ($self->{'writing'})
282 7 2 if $excess > 0
283 1 8 unless $length
286 0 8 unless defined $count
288 4 4 unless defined $_[0]
289 1 7 if $offset > length $_[0]