Branch Coverage

blib/lib/WARC/Record/Block.pm
Criterion Covered Total %
branch 39 42 92.8


line true false branch
23 10 13 if $self->[4]
35 1 138 if (defined $parent->{'compression'})
36 0 1 unless seek $handle, $parent->offset, 0
39 0 1 unless my $zhandle = $z_reader->new($handle, 'MultiStream', 0, 'Transparent', 0, 'AutoClose', 1)
61 2 226 if $self->[4]
64 1 225 unless (defined $line)
67 126 99 unless $excess < 0
68 104 121 if $excess > 0
80 2 21 if $self->[4]
84 5 16 unless $excess < 0
85 3 18 if $excess > 0
88 0 21 unless defined $count
90 17 4 unless defined $_[0]
91 1 20 if $offset > length $_[0]
100 1 13 unless $self->READ($ch, 1)
114 146 4 if ($whence == 0) { }
1 3 elsif ($whence == 1) { }
2 1 elsif ($whence == 2) { }
119 1 148 if $npos < 0
120 1 147 if ($npos >= $self->[1])
128 14 14 if $self->[4]