/
usr
/
share
/
doc
/
perl-Filter
/
examples
/
closure
/
/usr/share/doc/perl-Filter/examples/closure
mkdir
upload
Name
Size
Mode
Actions
Count.pm
471
0644
edit
dl
rm
Decompress.pm
626
0644
edit
dl
rm
Include.pm
617
0644
edit
dl
rm
Joe2Jim.pm
295
0644
edit
dl
rm
NewSubst.pm
673
0644
edit
dl
rm
Subst.pm
384
0644
edit
dl
rm
UUdecode.pm
1046
0644
edit
dl
rm
Edit:
/usr/share/doc/perl-Filter/examples/closure/Decompress.pm
(626B)
package Filter::Decompress ; # For usage see examples/filtdef use Filter::Util::Call ; use Compress::Zlib ; use Carp ; use strict ; use warnings ; our $VERSION = '1.02' ; sub import { my ($self) = @_ ; # Initialise an inflation stream. my $x = inflateInit() or croak "Internal Error inflateInit" ; filter_add( sub { my ($status, $err) ; if (($status = filter_read()) >0) { ($_, $err) = $x->inflate($_) ; return -1 unless $err == Z_OK or $err == Z_STREAM_END ; } $status ; }) } 1 ; __END__
Save
cmd:
run