Branch Coverage

blib/lib/HTTP/MobileAgent/Plugin/Location.pm
Criterion Covered Total %
branch 1 126 0.7


line true false branch
64 0 7 if $@
80 0 0 if $query
81 0 0 ref $$self{'_request'} eq 'HTTP::MobileAgent::Request::Apache' ? :
97 0 0 if defined $_[0]
98 0 0 defined $$self{'use_area'} ? :
106 0 0 unless my $uri = shift()
107 0 0 unless my $desc = shift()
112 0 0 unless $self->support_location
114 0 0 ref $uri ? :
118 0 0 $$opt{'mode'} ? :
119 0 0 unless $method =~ /^(A|ANY|POST|GET)$/
120 0 0 unless $html =~ /^[XC]HTML$/
124 0 0 unless eval { do { $self->$support } }
150 0 0 if ($self->use_area)
166 0 0 if ($self->location)
186 0 0 if ($self->is_foma) { }
189 0 0 if ($method =~ /^A/) { }
193 0 0 if $html eq 'XHTML'
215 0 0 if $method eq 'A'
222 0 0 if $method eq 'ANY'
254 0 0 if (@query_form > 4)
274 0 0 if $use_sector
276 0 0 if ($method eq 'A') { }
283 0 0 if $html eq 'XHTML'
289 0 0 if $method eq 'ANY'
310 0 0 if ($q->param('pos')) { }
0 0 elsif ($q->param('lat') and $q->param('lon')) { }
0 0 elsif ($q->param('LAT') and $q->param('LON')) { }
314 0 0 $1 eq 'S' ? :
315 0 0 $3 eq 'W' ? :
347 0 0 if ($q->param('AREACODE')) { }
372 0 0 if $method eq 'POST'
378 0 0 if (@query_form)
394 0 0 if ($method =~ /^A/) { }
401 0 0 if $html eq 'XHTML'
427 0 0 if $method eq 'POST'
433 0 0 if (@query_form)
444 0 0 if ($method =~ /^A/) { }
451 0 0 if $html eq 'XHTML'
476 0 0 if ($q->param('lat') and $q->param('lon'))
478 0 0 if (defined $q->param('fm')) { }
481 0 0 $q->param('fm') < 2 ? :
506 0 0 $cell ? :
510 0 0 if ($method =~ /^A/) { }
517 0 0 if $query
518 0 0 if $html eq 'XHTML'
552 0 0 if ($self->is_type_3gc) { }
559 0 0 if ($method =~ /^A/) { }
563 0 0 if $html eq 'XHTML'
593 0 0 if ($q->param('pos')) { }
0 0 elsif ($h) { }
597 0 0 $1 eq 'S' ? :
598 0 0 $3 eq 'W' ? :
599 0 0 $q->param('geo') eq 'itrf' ? :
603 0 0 $q->param('x-acr') == 1 ? :
609 0 0 if ($lat =~ /^0+$/ or $long =~ /^0+$/) { }
636 0 0 if $method =~ /^(POST|GET)$/
647 0 0 if $query
648 0 0 if $html eq 'XHTML'
662 0 0 if ($q->param('pos'))
664 0 0 $1 eq 'S' ? :
665 0 0 $3 eq 'W' ? :
667 0 0 if ($lat =~ /^[90\.]+$/ or $long =~ /^[90\.]+$/) { }