/
usr
/
share
/
perl5
/
DBM_Filter
/
/usr/share/perl5/DBM_Filter
mkdir
upload
Name
Size
Mode
Actions
compress.pm
863
0644
edit
dl
rm
encode.pm
1370
0644
edit
dl
rm
int32.pm
760
0644
edit
dl
rm
null.pm
973
0644
edit
dl
rm
utf8.pm
784
0644
edit
dl
rm
Edit:
/usr/share/perl5/DBM_Filter/compress.pm
(863B)
package DBM_Filter::compress ; use strict; use warnings; use Carp; our $VERSION = '0.02'; BEGIN { eval { require Compress::Zlib; Compress::Zlib->import() }; croak "Compress::Zlib module not found.\n" if $@; } sub Store { $_ = compress($_) } sub Fetch { $_ = uncompress($_) } 1; __END__ =head1 NAME DBM_Filter::compress - filter for DBM_Filter =head1 SYNOPSIS use SDBM_File; # or DB_File, or GDBM_File, or NDBM_File, or ODBM_File use DBM_Filter ; $db = tie %hash, ... $db->Filter_Push('compress'); =head1 DESCRIPTION This DBM filter will compress all data before it is written to the database and uncompressed it on reading. A fatal error will be thrown if the Compress::Zlib module is not available. =head1 SEE ALSO L<DBM_Filter>, L<perldbmfilter>, L<Compress::Zlib> =head1 AUTHOR Paul Marquess pmqs@cpan.org
Save
cmd:
run