|
sub docomo :CarrierMethod( 'DoCoMo' , 'xhtml_compliant' ) {
my ( $self , $c ) = @_ ;
return ( $c ->is_foma && $c ->model !~ qr/(?:D210i|SO210i)|503i|211i|SH251i|692i|200[12]|2101V/ )
? 1
: 0;
}
sub ezweb :CarrierMethod( 'EZweb' , 'xhtml_compliant' ) {
my ( $self , $c ) = @_ ;
if ( $c ->user_agent =~ /^KDDI\-/ ) {
return 1;
} else {
return ;
}
}
sub non_mobile :CarrierMethod( 'NonMobile' , 'xhtml_compliant' ) { 1 }
sub third_force :CarrierMethod( 'ThirdForce' , 'xhtml_compliant' ) {
my ( $self , $c ) = @_ ;
return ( $c ->is_type_w || $c ->is_type_3gc ) ? 1 : 0;
}
1;
|