Branch Coverage

blib/lib/Compress/BGZF/Writer.pm
Criterion Covered Total %
branch 27 40 67.5


line true false branch
35 0 3 unless tie *$fh, $class, $fn_out
52 5 1 if (defined $fn_out) { }
53 0 5 unless open $self->{'fh'}, ">", $fn_out
87 6 3 unless $level =~ /^\d$/
108 4 2 $bool ? :
152 8 10 if length $unwritten
175 0 24 unless rawdeflate(\$chunk, \my $payload, "-Level", $self->{'c_level'})
186 0 8 unless rawdeflate(\$chunk, \$payload, "-Level", $self->{'c_level'})
192 0 24 if $block_size > 65536
195 0 24 unless print {$self->{'fh'};} pack("a*va*VV", "\37\213\b\4\0\0\0\0\0\377\6\0BC\2\0", $block_size - 1, $payload, crc32($chunk), $chunk_len)
226 0 6 unless defined fileno $self->{'fh'}
231 0 6 if length $unwritten
235 1 17 if ($self->{'write_eof'} and defined fileno $self->{'fh'})
238 6 12 if (defined fileno $self->{'fh'})
240 0 6 unless close $self->{'fh'}
258 3 3 unless defined $fn_out
259 0 3 unless open my $fh_out, ">:raw", $fn_out
264 0 3 unless print {$fh_out;} pack("Q<", scalar @offsets)
267 0 13 unless print {$fh_out;} pack("Q
271 0 3 unless close $fh_out