[Summary view] [Print] [Text view]

   1  package DBM_Filter::compress ;
   2  
   3  use strict;
   4  use warnings;
   5  use Carp;
   6  
   7  our $VERSION = '0.01';
   8  
   9  BEGIN
  10  {
  11      eval { require Compress::Zlib; Compress::Zlib->import() };
  12  
  13      croak "Compress::Zlib module not found.\n"
  14          if $@;
  15  }
  16  
  17  
  18  
  19  sub Store { $_ = compress($_) }
  20  sub Fetch { $_ = uncompress($_) }
  21  
  22  1;
  23  
  24  __END__
  25  
  26  =head1 NAME
  27  
  28  DBM_Filter::compress - filter for DBM_Filter
  29  
  30  =head1 SYNOPSIS
  31  
  32      use SDBM_File; # or DB_File, or GDBM_File, or NDBM_File, or ODBM_File
  33      use DBM_Filter ;
  34  
  35      $db = tie %hash, ...
  36      $db->Filter_Push('compress');
  37  
  38  =head1 DESCRIPTION
  39  
  40  This DBM filter will compress all data before it is written to the database
  41  and uncompressed it on reading.
  42  
  43  A fatal error will be thrown if the Compress::Zlib module is not
  44  available.
  45  
  46  =head1 SEE ALSO
  47  
  48  L<DBM_Filter>, L<perldbmfilter>, L<Compress::Zlib>
  49  
  50  =head1 AUTHOR
  51  
  52  Paul Marquess pmqs@cpan.org
  53