File Coverage

examples/io/gzip/gzstream
Criterion Covered Total %
statement 10 10 100.0
branch 1 2 50.0
condition n/a
subroutine 3 3 100.0
pod n/a
total 14 15 93.3


line stmt bran cond sub pod time code
1             #!/usr/local/bin/perl
2              
3 1     1   3688 use strict ;
  1         1  
  1         30  
4 1     1   2 use warnings ;
  1         1  
  1         41  
5 1     1   528 use IO::Compress::Gzip qw(gzip $GzipError);
  1         3  
  1         1261  
6              
7 1 50       123398 gzip '-' => '-', Minimal => 1
8             or die "gzstream: $GzipError\n" ;
9              
10             #exit 0;
11              
12             __END__