| blib/lib/Image/PNG/Rewriter.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 1 | 2 | 50.0 |
| line | l | !l | condition |
|---|---|---|---|
| 41 | 0 | 60 | $o{'zlib'} //= sub { my $data = shift(); my($d, $status0) = &Compress::Zlib::deflateInit(); die unless $status0 == Compress::Zlib::Z_OK(); my($out1, $status1) = $d->deflate($data); die unless $status1 == Compress::Zlib::Z_OK(); my($out2, $status2) = $d->flush; die unless $status2 == Compress::Zlib::Z_OK(); return $out1 . $out2; } |