git.maemo.org Git - pkg-perl/blob - deb-src/libfilter-perl/libfilter-perl-1.34/examples/closure/Decompress.pm

   1 package Filter::Decompress ;
   2
   3 use Filter::Util::Call ;
   4 use Compress::Zlib ;
   5 use Carp ;
   6
   7 use strict ;
   8 use warnings ;
   9
  10 my $VERSION = '1.01' ;
  11
  12 sub import
  13 {
  14     my ($self) = @_ ;
  15
  16     # Initialise an inflation stream.
  17     my $x = inflateInit()
  18         or croak "Internal Error" ;
  19     filter_add(
  20         sub
  21         {
  22             my ($status, $err) ;
  23
  24             if (($status = filter_read()) >0) {
  25                 ($_, $err) = $x->inflate($_) ;
  26                 return -1 unless $err == Z_OK or $err == Z_STREAM_END ;
  27             }
  28             $status ;
  29         })
  30 }
  31
  32 1 ;
  33 __END__