Branch Coverage

blib/lib/WARC/Record/Block.pm
Criterion Covered Total %
branch 41 44 93.1


line true false branch
23 11 15 if $self->[4]
35 1 151 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 10 273 if (wantarray)
67 14 259 if $self->[4]
70 1 258 unless (defined $line)
73 134 124 unless $excess < 0
74 108 150 if $excess > 0
86 3 31 if $self->[4]
90 5 26 unless $excess < 0
91 3 28 if $excess > 0
94 0 31 unless defined $count
96 26 5 unless defined $_[0]
97 1 30 if $offset > length $_[0]
106 2 21 unless $self->READ($ch, 1)
120 164 5 if ($whence == 0) { }
2 3 elsif ($whence == 1) { }
2 1 elsif ($whence == 2) { }
125 1 167 if $npos < 0
126 2 165 if ($npos >= $self->[1])
134 18 21 if $self->[4]