package DBM_Filter
::utf8
;
eval { require Encode
; };
croak
"Encode module not found.\n"
sub Store
{ $_ = Encode
::encode_utf8
($_) if defined $_ }
sub Fetch
{ $_ = Encode
::decode_utf8
($_) if defined $_ }
use SDBM_File; # or DB_File, or GDBM_File, or NDBM_File, or ODBM_File
$db->Filter_Push('utf8');
This Filter will ensure that all data written to the DBM will be encoded
This module uses the Encode module.
L<DBM_Filter>, L<perldbmfilter>, L<Encode>
Paul Marquess pmqs@cpan.org