File Coverage

blib/lib/Encode/JP/Mobile/MIME.pm

Criterion	Covered	Total	%
statement	30	33	90.9
branch	2	4	50.0
condition			n/a
subroutine	8	10	80.0
pod	2	4	50.0
total	42	51	82.3

package Encode::JP::Mobile::MIME;
use strict;
use warnings;
use base 'Encode::Encoding';

use Encode ();
use Encode::JP::Mobile;
use MIME::Words;

sub subject_encoding {
    Encode::find_encoding('utf-8');
}

sub charset_to_encoding {
    my ($self, $charset) = @_;
    Encode::find_encoding($charset);
}

sub encode($$;$){
    my ($self, $str, $check) = @_;
    my $encoding = $self->subject_encoding
        or die "encoding is not found.";

    $str = $encoding->encode($str, $check);
    $str = MIME::Words::encode_mimeword($str, 'B', $encoding->mime_name);
    return $str;
}

sub decode($$;$){
    my ($self, $str, $check) = @_;

    my $ret = "";
    for my $part (MIME::Words::decode_mimewords($str)) {
        my ($bytes, $charset) = @$part;
        my $encoding = $self->charset_to_encoding($charset)
            or die "encoding is not found for $charset.";

        $ret .= $encoding->decode($bytes, $check);
    }

    return $ret;
}

1;
__END__