home *** CD-ROM | disk | FTP | other *** search
/ Netrunner 2004 October / NETRUNNER0410.ISO / regular / ActivePerl-5.8.4.810-MSWin32-x86.msi / _6bde3424c7dafcf527020a7b6d2abd73 < prev    next >
Encoding:
Text File  |  2004-06-01  |  813 b   |  51 lines
  1. package DBM_Filter::utf8 ;
  2.  
  3. use strict;
  4. use warnings;
  5. use Carp;
  6.  
  7. our $VERSION = '0.01';
  8.  
  9. BEGIN
  10. {
  11.     eval { require Encode; };
  12.  
  13.     croak "Encode module not found.\n"
  14.         if $@;
  15. }
  16.  
  17. sub Store { $_ = Encode::encode_utf8($_) if defined $_ }
  18.  
  19. sub Fetch { $_ = Encode::decode_utf8($_) if defined $_ }
  20.  
  21. 1;
  22.  
  23. __END__
  24.  
  25. =head1 DBM_Filter::utf8
  26.  
  27. =head1 SYNOPSIS
  28.  
  29.     use SDBM_File; # or DB_File, or GDBM_File, or NDBM_File, or ODBM_File
  30.     use DBM_Filter ;
  31.     
  32.  
  33.     $db = tie %hash, ...
  34.     $db->Filter_Push('utf8');
  35.     
  36. =head1 DESCRIPTION
  37.  
  38. This Filter will ensure that all data written to the DBM will be encoded
  39. in UTF-8.
  40.  
  41. This module uses the Encode module.
  42.  
  43. =head1 SEE ALSO
  44.  
  45. L<DBM_Filter>, L<perldbmfilter>, L<Encode>
  46.  
  47. =head1 AUTHOR
  48.  
  49. Paul Marquess pmqs@cpan.org
  50.  
  51.