File Coverage

blib/lib/HTTP/MobileAttribute/Plugin/IS.pm
Criterion Covered Total %
statement 49 49 100.0
branch 14 16 87.5
condition n/a
subroutine 19 19 100.0
pod 8 8 100.0
total 90 92 97.8


line stmt bran cond sub pod time code
1             package HTTP::MobileAttribute::Plugin::IS;
2 16     16   11890 use strict;
  16         37  
  16         677  
3 16     16   83 use warnings;
  16         34  
  16         2812  
4 16     16   115 use base qw/HTTP::MobileAttribute::Plugin/;
  16         33  
  16         1936  
5              
6             sub is_docomo: Method {
7 599     599 1 4005 my ($self, $c) = @_;
8 599 100       2140 return $c->carrier_longname eq 'DoCoMo' ? 1 : 0;
9 16     16   4239 }
  16         5806  
  16         126  
10              
11             sub is_j_phone: Method {
12 559     559 1 3921 my ($self, $c) = @_;
13 559 100       1737 return $c->carrier_longname eq 'ThirdForce' ? 1 : 0;
14 16     16   5251 }
  16         34  
  16         72  
15              
16             sub is_vodafone: Method {
17 197     197 1 2020 my ($self, $c) = @_;
18 197 100       498 return $c->carrier_longname eq 'ThirdForce' ? 1 : 0;
19 16     16   4282 }
  16         35  
  16         76  
20              
21             sub is_softbank: Method {
22 13     13 1 78 my ($self, $c) = @_;
23 13 100       35 return $c->carrier_longname eq 'ThirdForce' ? 1 : 0;
24 16     16   5108 }
  16         45  
  16         79  
25              
26             sub is_thirdforce: Method {
27 5     5 1 47 my ($self, $c) = @_;
28 5 100       12 return $c->carrier_longname eq 'ThirdForce' ? 1 : 0;
29 16     16   4502 }
  16         30  
  16         78  
30              
31             sub is_ezweb: Method {
32 589     589 1 3835 my ($self, $c) = @_;
33 589 100       1703 return $c->carrier_longname eq 'EZweb' ? 1 : 0;
34 16     16   4238 }
  16         36  
  16         76  
35              
36             sub is_airh_phone: Method {
37 7     7 1 58 my ($self, $c) = @_;
38 7 50       28 return $c->carrier_longname eq 'AirHPhone' ? 1 : 0;
39 16     16   4384 }
  16         42  
  16         138  
40              
41             sub is_non_mobile: Method {
42 164     164 1 990 my ($self, $c) = @_;
43 164 50       514 return $c->carrier_longname eq 'NonMobile' ? 1 : 0;
44 16     16   4425 }
  16         45  
  16         74  
45              
46             1;
47             __END__