|
sub is_type_c :CarrierMethod( 'ThirdForce' ) { $_ [1]->type =~ /^C/ }
sub is_type_p :CarrierMethod( 'ThirdForce' ) { $_ [1]->type =~ /^P/ }
sub is_type_w :CarrierMethod( 'ThirdForce' ) { $_ [1]->type =~ /^W/ }
sub is_type_3gc :CarrierMethod( 'ThirdForce' ) { $_ [1]->type eq '3GC' }
1;
|