NAME
    Mail::Message::Encode::Perl - Perl (character-oriented) based Encoding

SYNOPSIS
        use Mail::Message::Encode::Perl;
        my $obj = new Mail::Message::Encode::Perl;

        my $pif_str = $obj->mime_header_decode($str);
        # ("[BSG:75] Re: Exodus Part II", "UTF-8", "base64")

        # ... several works ... 
        $pif_str  =~ s/Re: //;
        Mail::Message::Subject->rewrite_XXX($pif_str);

        $mime_str = $obj->mime_header_encode($pif_str);
        print $mime_str;

DESCRIPTION
METHODS
  new()
    constructor.

  guess_encoding($str)
    speculate the encoding of $str string. $str is checked by
    Unicode::Japanese. Unicode::Japanes::getcode() can detect the following
    code: jis, sjis, euc, utf8, ucs2, ucs4, utf16, utf16-ge, utf16-le,
    utf32, utf32-ge, utf32-le, ascii, binary, sjis-imode, sjis-doti,
    sjis-jsky.

    "CAUTION": Hmm, we suppose we handle only Japanese and English here...

  mime_header_enecode($str)
    encode the given Perl internal format string to the mime header one.

  mime_header_decode($str)
    decode the given mime header format string to the Perl internal one.

   CAUTION
    In the current Perl (for backward compatibility), we need to handle the
    string this way.

       IN -> decode() -> Perl Internal UTF8 format -> encode() -> OUT

  convert_from_internal_to_external_form($pif_str)
    convert the given Perl internal form to the external printable one.

CODING STYLE
    See "http://www.fml.org/software/FNF/" on fml coding style guide.

AUTHOR
    Ken'ichi Fukamachi

COPYRIGHT
    Copyright (C) 2018 Ken'ichi Fukamachi

    All rights reserved. This program is free software; you can redistribute
    it and/or modify it under the same terms as Perl itself.

HISTORY
    Mail::Message::Encode first appeared in fml8 mailing list driver
    package. See "http://www.fml.org/" for more details.

