| line |
true |
false |
branch |
|
17
|
2 |
2 |
@params % 2 ? : |
|
19
|
0 |
4 |
unless $params{'key'} |
|
28
|
2 |
2 |
if ($$self{'debug'}) |
|
34
|
2 |
2 |
exists $$self{'compress'} ? : |
|
|
2 |
2 |
if (exists $$self{'compress'} ? $$self{'compress'} : 1) |
|
38
|
0 |
4 |
if $$self{'https'} and not $self->ua->is_protocol_supported('https') |
|
48
|
4 |
6 |
if ($ua) |
|
49
|
0 |
4 |
unless ref $ua and $ua->isa('LWP::UserAgent') |
|
57
|
0 |
0 |
$_[0]{'key'} ? : |
|
62
|
0 |
0 |
@params % 2 ? : |
|
64
|
0 |
0 |
unless $params{'query'} = delete $params{'location'} |
|
68
|
0 |
0 |
if $$self{'https'} |
|
81
|
0 |
0 |
@params % 2 ? : |
|
83
|
0 |
0 |
unless my $location = $params{'location'} |
|
87
|
0 |
0 |
if $$self{'https'} |
|
106
|
0 |
0 |
unless $res->is_success |
|
113
|
0 |
0 |
unless $content |
|
119
|
0 |
0 |
unless $data |
|
121
|
0 |
0 |
unless $$data{'d'}{'Results'} |
|
122
|
0 |
0 |
wantarray ? : |
|
127
|
0 |
0 |
@params % 2 ? : |
|
133
|
0 |
0 |
if (my $latlon = delete $params{'latlng'}) { } |
|
140
|
0 |
0 |
unless 2 == grep(defined($_), $lat, $lon) |
|
143
|
0 |
0 |
if $$self{'https'} |
|
154
|
0 |
0 |
unless $uri |
|
157
|
0 |
0 |
unless $res->is_success |
|
164
|
0 |
0 |
unless $content |
|
167
|
0 |
0 |
unless $data |
|
169
|
0 |
0 |
unless $$data{'resourceSets'}[0]{'resources'} |
|
170
|
0 |
0 |
wantarray ? : |