Branch Coverage

blib/lib/Compress/Zlib.pm
Criterion Covered Total %
branch 125 146 85.6


line true false branch
72 326 75 if ($value == 0) { }
0 75 elsif ($value == Z_ERRNO() or $value > 2) { }
99 53 185 if ($test_eof)
101 26 27 if $gz->eof and $value == 0
120 2 69 if $mode =~ /(\d)/
121 1 70 if $mode =~ /f/i
122 1 70 if $mode =~ /h/i
123 2 69 if $mode =~ /a/i
125 33 38 $writing ? :
128 1 0 unless &isaFilehandle($file) or &isaFilename($file) or ref $file and ref $file eq "SCALAR"
132 1 69 unless $mode =~ /[rwa]/i
136 33 36 if ($writing) { }
137 0 33 unless $gz = "IO::Compress::Gzip"->new($file, "Minimal", 1, "AutoClose", 1, %defOpts)
142 0 36 unless $gz = "IO::Uncompress::Gunzip"->new($file, "Transparent", 1, "Append", 0, "AutoClose", 1, "MultiStream", 1, "Strict", 0)
152 0 69 unless defined $gz
161 1 33 if $self->[1] ne "inflate"
164 19 14 defined $_[1] ? :
167 9 24 if ($self->gzeof or $len == 0)
191 17 3 defined $_[0] ? :
199 1 30 if $self->[1] ne "deflate"
202 30 0 if $] >= "5.008"
228 5 6 if ($@)
247 6 1 $status ? :
257 59 0 $status ? :
265 1 67 if $self->[1] ne "inflate"
276 1 2 unless @_ eq 2
283 1 1 if $self->[1] ne "deflate"
305 3 7 if (ref $_[0]) { }
307 1 2 unless ref $in eq "SCALAR"
313 9 0 if $] >= "5.008"
316 2 6 @_ == 2 ? :
318 1 7 unless $x = Compress::Raw::Zlib::_deflateInit(1, $level, Z_DEFLATED(), MAX_WBITS(), MAX_MEM_LEVEL(), Z_DEFAULT_STRATEGY(), 4096, "")
329 0 7 unless $err == Z_OK()
332 0 7 unless $err == Z_OK()
341 4 6 if (ref $_[0]) { }
343 1 3 unless ref $in eq "SCALAR"
349 9 0 if $] >= "5.008"
355 0 8 unless $status == Z_OK()
358 1 7 unless $obj->inflate($in, $output) == Z_STREAM_END()
377 1 12 unless $got->getValue("bufsize") >= 1
394 12 0 $status == Z_OK() ? :
395 7 5 wantarray ? :
408 1 11 unless $got->getValue("bufsize") >= 1
419 11 0 $status == Z_OK() ? :
421 6 5 wantarray ? :
436 60 1 wantarray ? :
446 14 1 wantarray ? :
459 149 1 wantarray ? :
469 0 6 unless my $x = Compress::Raw::Zlib::_deflateInit(3, Z_BEST_COMPRESSION(), Z_DEFLATED(), -MAX_WBITS(), MAX_MEM_LEVEL(), Z_DEFAULT_STRATEGY(), 4096, "")
480 2 4 ref $_[0] ? :
482 6 0 if $] >= "5.008"
488 0 5 unless $x->deflate($string, $out) == Z_OK()
491 0 5 unless $x->flush($out) == Z_OK()
504 1 53 if length $$string < 10
510 4 44 unless $magic1 == 31 and $magic2 == 139 and $method == Z_DEFLATED() and not $flags & 224
516 4 40 if ($flags & 4)
518 1 3 if length $$string < 2
523 2 1 if length $$string < $extra_len
530 5 36 if ($flags & 8)
533 4 1 if $name_end == -1
539 8 29 if ($flags & 16)
542 7 1 if $comment_end == -1
548 3 27 if ($flags & 2)
550 2 1 if length $$string < 2
568 47 8 ref $_[0] ? :
570 55 0 if $] >= "5.008"
576 26 28 unless $status == Z_OK()
579 1 27 length $$string > 4096 ? :
580 0 28 unless my $x = Compress::Raw::Zlib::_inflateInit(10, -MAX_WBITS(), $bufsize, "")
587 1 27 if ($status == Z_OK())
593 0 27 if $status != Z_STREAM_END()
596 11 16 if (length $$string >= 8) { }
600 4 7 unless $len == length $output and $crc == Compress::Raw::Zlib::crc32($output)