home *** CD-ROM | disk | FTP | other *** search
/ Netrunner 2004 October / NETRUNNER0410.ISO / regular / ActivePerl-5.8.4.810-MSWin32-x86.msi / _05658907654b8aec14d77642a2a278c9 < prev    next >
Encoding:
Text File  |  2004-06-01  |  888 b   |  52 lines
  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 DBM_Filter::compress
  27.  
  28. =head1 SYNOPSIS
  29.  
  30.     use SDBM_File; # or DB_File, or GDBM_File, or NDBM_File, or ODBM_File
  31.     use DBM_Filter ;
  32.  
  33.     $db = tie %hash, ...
  34.     $db->Filter_Push('compress');
  35.     
  36. =head1 DESCRIPTION
  37.  
  38. This DBM filter will compress all data before it is written to the database
  39. and uncompressed it on reading.
  40.  
  41. A fatal error will be thrown if the Compress::Zlib module is not
  42. available.
  43.  
  44. =head1 SEE ALSO
  45.  
  46. L<DBM_Filter>, L<perldbmfilter>, L<Compress::Zlib>
  47.  
  48. =head1 AUTHOR
  49.  
  50. Paul Marquess pmqs@cpan.org
  51.  
  52.