1 package DBM_Filter::encode ;
11 eval { require Encode; };
13 croak "Encode module not found.\n"
20 my $encoding_name = shift || "utf8";
22 my $encoding = Encode::find_encoding($encoding_name) ;
24 croak "Encoding '$encoding_name' is not available"
29 $_ = $encoding->encode($_)
33 $_ = $encoding->decode($_)
45 DBM_Filter::encode - filter for DBM_Filter
49 use SDBM_File; # or DB_File, or GDBM_File, or NDBM_File, or ODBM_File
53 $db->Filter_Push('encode' => 'iso-8859-16');
57 This DBM filter allows you to choose the character encoding will be
58 store in the DBM file. The usage is
60 $db->Filter_Push('encode' => ENCODING);
62 where "ENCODING" must be a valid encoding name that the Encode module
65 A fatal error will be thrown if:
71 The Encode module is not available.
75 The encoding requested is not supported by the Encode module.
81 L<DBM_Filter>, L<perldbmfilter>, L<Encode>
85 Paul Marquess pmqs@cpan.org