git.maemo.org Git - pkg-perl/blob - deb-src/libfilter-perl/libfilter-perl-1.34/examples/method/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 filter
  13 {
  14     my ($self) = @_ ;
  15     my ($status) ;
  16     my ($inf) = $$self ;
  17
  18     if (($status = filter_read()) >0) {
  19         ($_, $err) = $inf->inflate($_) ;
  20         return -1 unless $err == Z_OK or $err == Z_STREAM_END ;
  21     }
  22     $status ;
  23 }
  24
  25 sub import
  26 {
  27     my ($self) = @_ ;
  28
  29     # Initialise an inflation stream.
  30     my $x = inflateInit()
  31         or croak "Internal Error" ;
  32     filter_add(\$x) ;
  33 }
  34
  35 1 ;
  36 __END__