From ace7de9182411a7f316c1d636433fd724a2e7acc Mon Sep 17 00:00:00 2001
From: Ken'ichi Fukamachi <fukachan@fml.org>
Date: Fri, 7 Sep 2018 19:38:28 +0900
Subject: define convert_from_internal_to_external_form() which convert the
 given Perl internal form to the external printable one.

---
 fml/lib/Mail/Message/Encode/Perl.pm | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

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.
-- 
cgit v1.2.1