File Coverage

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

Criterion	Covered	Total	%
statement	22	24	91.6
branch	1	4	25.0
condition	1	3	33.3
subroutine	9	10	90.0
pod	0	1	0.0
total	33	42	78.5

package Encode::JP::Mobile::MIME::SoftBank;
use strict;
Encode::Alias::define_alias('MIME-Header-JP-Mobile-SoftBank' => 'MIME-Header-JP-Mobile-SoftBank-UTF8');
Encode::Alias::define_alias('MIME-Header-JP-Mobile-Vodafone' => 'MIME-Header-JP-Mobile-SoftBank-UTF8');

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

    if (!$charset || $charset =~ /utf-8/i) {
        $charset = 'x-utf8-softbank';
    }
    elsif ($charset =~ /shift_jis/i) {
        $charset = 'x-sjis-softbank';
    }

    Encode::find_encoding($charset);
}


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

Encode::Alias::define_alias('MIME-Header-JP-Mobile-Vodafone-UTF8' => 'MIME-Header-JP-Mobile-SoftBank-UTF8');

sub subject_encoding {
    Encode::find_encoding('x-utf8-softbank');
}

sub charset_to_encoding {
    Encode::JP::Mobile::MIME::SoftBank::charset_to_encoding(@_);
}


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

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

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

sub charset_to_encoding {
    Encode::JP::Mobile::MIME::SoftBank::charset_to_encoding(@_);
}

1;