File Coverage

blib/lib/HTTP/MobileAttribute/Plugin/IS/ThirdForce.pm
Criterion Covered Total %
statement 25 25 100.0
branch n/a
condition n/a
subroutine 11 11 100.0
pod 4 4 100.0
total 40 40 100.0


line stmt bran cond sub pod time code
1             package HTTP::MobileAttribute::Plugin::IS::ThirdForce;
2 19     19   14623 use strict;
  19         46  
  19         674  
3 19     19   104 use warnings;
  19         40  
  19         587  
4 19     19   112 use base qw/HTTP::MobileAttribute::Plugin/;
  19         42  
  19         1775  
5              
6 19     19 1 116 sub is_type_c :CarrierMethod('ThirdForce') { $_[1]->type =~ /^C/ }
  19     12   50  
  19         142  
  12         149  
7 19     19 1 6024 sub is_type_p :CarrierMethod('ThirdForce') { $_[1]->type =~ /^P/ }
  19     10   41  
  19         92  
  10         108  
8 19     19 1 4950 sub is_type_w :CarrierMethod('ThirdForce') { $_[1]->type =~ /^W/ }
  19     16   40  
  19         100  
  16         153  
9 19     19 1 5082 sub is_type_3gc :CarrierMethod('ThirdForce') { $_[1]->type eq '3GC' }
  19     33   50  
  19         91  
  33         272  
10              
11             1;
12             __END__