File Coverage

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

Criterion	Covered	Total	%
statement	14	14	100.0
branch	1	2	50.0
condition	1	3	33.3
subroutine	5	5	100.0
pod			n/a
total	21	24	87.5

package Encode::JP::Mobile::MIME::DoCoMo;
use strict;
Encode::Alias::define_alias('MIME-Header-JP-Mobile-DoCoMo' => 'MIME-Header-JP-Mobile-DoCoMo-SJIS');
Encode::Alias::define_alias('MIME-Header-JP-Mobile-iMode'  => 'MIME-Header-JP-Mobile-DoCoMo-SJIS');


package Encode::JP::Mobile::MIME::DoCoMo::SJIS;
use strict;
use base 'Encode::JP::Mobile::MIME';
__PACKAGE__->Define('MIME-Header-JP-Mobile-DoCoMo-SJIS');

Encode::Alias::define_alias('MIME-Header-JP-Mobile-iMode-SJIS' => 'MIME-Header-JP-Mobile-DoCoMo-SJIS');

sub subject_encoding {
    Encode::find_encoding('x-sjis-docomo');
}

sub charset_to_encoding {
    my ($self, $charset) = @_;

    if (!$charset || $charset =~ /shift_jis/i) {
        $charset = 'x-sjis-docomo';
    }

    Encode::find_encoding($charset);
}

1;