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   5456 use strict ;
  1         2  
  1         40  
4 1     1   6 use warnings ;
  1         2  
  1         90  
5 1     1   697 use IO::Compress::Gzip qw(gzip $GzipError);
  1         2  
  1         1209  
6              
7 1 50       146446 gzip '-' => '-', Minimal => 1
8             or die "gzstream: $GzipError\n" ;
9              
10             #exit 0;
11              
12             __END__