package HTTP::MobileAttribute::Plugin::IS; use strict; use warnings; use base qw/HTTP::MobileAttribute::Plugin/; sub is_docomo: Method { my ($self, $c) = @_; return $c->carrier_longname eq 'DoCoMo' ? 1 : 0; } sub is_j_phone: Method { my ($self, $c) = @_; return $c->carrier_longname eq 'ThirdForce' ? 1 : 0; } sub is_vodafone: Method { my ($self, $c) = @_; return $c->carrier_longname eq 'ThirdForce' ? 1 : 0; } sub is_softbank: Method { my ($self, $c) = @_; return $c->carrier_longname eq 'ThirdForce' ? 1 : 0; } sub is_thirdforce: Method { my ($self, $c) = @_; return $c->carrier_longname eq 'ThirdForce' ? 1 : 0; } sub is_ezweb: Method { my ($self, $c) = @_; return $c->carrier_longname eq 'EZweb' ? 1 : 0; } sub is_airh_phone: Method { my ($self, $c) = @_; return $c->carrier_longname eq 'AirHPhone' ? 1 : 0; } sub is_non_mobile: Method { my ($self, $c) = @_; return $c->carrier_longname eq 'NonMobile' ? 1 : 0; } 1; __END__ =encoding UTF-8 =for stopwords DoCoMo SoftBank EZweb AirHPhone =head1 NAME HTTP::MobileAttribute::Plugin::IS - is_* を定義ã™ã‚‹ =head1 METHODS =over 4 =item is_docomo DoCoMo 端末ã‹ã©ã†ã‹ã‚’判定ã—ã¾ã™ã€‚ =item is_j_phone =item is_vodafone =item is_softbank =item is_thirdforce SoftBank 端末ã‹ã©ã†ã‹ã‚’判定ã—ã¾ã™ã€‚ =item is_ezweb EZweb 端末ã‹ã©ã†ã‹ã‚’判定ã—ã¾ã™ã€‚ =item is_airh_phone AirHPhone ã‹ã©ã†ã‹ã‚’判定ã—ã¾ã™ã€‚ =item is_non_mobile モãƒã‚¤ãƒ«ç«¯æœ«ã§ã¯ãªã„ã‹ã©ã†ã‹ã‚’判定ã—ã¾ã™ã€‚ =back =head1 AUTHOR Tokuhiro Matsuno