diff options
| author | Ken'ichi Fukamachi <fukachan@fml.org> | 2018-09-07 19:38:28 +0900 |
|---|---|---|
| committer | Ken'ichi Fukamachi <fukachan@fml.org> | 2018-09-08 12:49:20 +0900 |
| commit | ace7de9182411a7f316c1d636433fd724a2e7acc (patch) | |
| tree | 0a539d0120b0166d2e1294929e527ee909d604f0 | |
| parent | 7ed5b19a6e8ef2016b1704989eb0411ce906edfe (diff) | |
| download | fml8-ace7de9182411a7f316c1d636433fd724a2e7acc.tar.gz fml8-ace7de9182411a7f316c1d636433fd724a2e7acc.tar.bz2 fml8-ace7de9182411a7f316c1d636433fd724a2e7acc.zip | |
define convert_from_internal_to_external_form() which convert the given Perl internal form to the external printable one.
| -rw-r--r-- | fml/lib/Mail/Message/Encode/Perl.pm | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/fml/lib/Mail/Message/Encode/Perl.pm b/fml/lib/Mail/Message/Encode/Perl.pm index e37784f6..5bb2e60e 100644 --- a/fml/lib/Mail/Message/Encode/Perl.pm +++ b/fml/lib/Mail/Message/Encode/Perl.pm @@ -147,6 +147,28 @@ sub mime_header_decode_as_octets } +=head2 convert_from_internal_to_external_form($pif_str) + +convert the given Perl internal form to the external printable one. + +=cut + + +# Descriptions: convert the given Perl internal form +# to the external printable one. +# Arguments: OBJ($self) STR($pif_str) +# Side Effects: none +# Return Value: STR +sub convert_from_internal_to_external_form +{ + my ($self, $pif_str) = @_; + + # XXX-TODO hard-coded now anyway. + my $code = "EUC-JP"; + utf8::is_utf8($pif_str) ? encode($code, $pif_str) : $pif_str; +} + + =head1 CODING STYLE See C<http://www.fml.org/software/FNF/> on fml coding style guide. |