1 package DBM_Filter::compress ;
11 eval { require Compress::Zlib; Compress::Zlib->import() };
13 croak "Compress::Zlib module not found.\n"
19 sub Store { $_ = compress($_) }
20 sub Fetch { $_ = uncompress($_) }
28 DBM_Filter::compress - filter for DBM_Filter
32 use SDBM_File; # or DB_File, or GDBM_File, or NDBM_File, or ODBM_File
36 $db->Filter_Push('compress');
40 This DBM filter will compress all data before it is written to the database
41 and uncompressed it on reading.
43 A fatal error will be thrown if the Compress::Zlib module is not
48 L<DBM_Filter>, L<perldbmfilter>, L<Compress::Zlib>
52 Paul Marquess pmqs@cpan.org