File Coverage

blib/lib/HTTP/MobileAttribute/Plugin/Encoding.pm

Criterion	Covered	Total	%
statement	35	35	100.0
branch	6	6	100.0
condition			n/a
subroutine	15	15	100.0
pod	1	6	16.6
total	57	62	91.9

package HTTP::MobileAttribute::Plugin::Encoding;
use strict;
use warnings;
use base qw/HTTP::MobileAttribute::Plugin/;

__PACKAGE__->depends([qw/XHTMLCompliant IS::ThirdForce/]);

sub can_display_utf8 :Method {
    my ($self, $c) = @_;
    $c->encoding =~ /utf-?8/ ? 1 : 0;
}

sub encoding_non_mobile :CarrierMethod('NonMobile',  'encoding') { 'utf-8' }
sub encoding_airh_phone :CarrierMethod('AirHPhone',  'encoding') { 'x-sjis-airh' }
sub encoding_ezweb      :CarrierMethod('EZweb',      'encoding') { 'x-sjis-ezweb-auto' }
sub encoding_thirdforce :CarrierMethod('ThirdForce', 'encoding') {
    $_[1]->is_type_3gc ? 'x-utf8-vodafone' : 'x-sjis-vodafone'
}
sub encoding_docomo     :CarrierMethod('DoCoMo',     'encoding') {
    "x-@{[ $_[1]->xhtml_compliant ? 'utf8' : 'sjis' ]}-docomo";
}

1;
__END__