| line |
true |
false |
branch |
|
18
|
3 |
4 |
@params % 2 ? : |
|
20
|
1 |
6 |
unless my $key = $params{'apikey'} |
|
23
|
0 |
6 |
$params{'open'} ? : |
|
|
0 |
6 |
$params{'host'} ? : |
|
32
|
0 |
4 |
exists $$self{'compress'} ? : |
|
|
2 |
4 |
if ($$self{'debug'}) { } |
|
|
4 |
0 |
elsif (exists $$self{'compress'} ? $$self{'compress'} : 1) { } |
|
41
|
1 |
5 |
if $$self{'https'} and not $self->ua->is_protocol_supported('https') |
|
51
|
6 |
9 |
if ($ua) |
|
52
|
0 |
6 |
unless ref $ua and $ua->isa('LWP::UserAgent') |
|
61
|
0 |
0 |
@params % 2 ? : |
|
63
|
0 |
0 |
unless my $location = $params{'location'} |
|
69
|
0 |
0 |
$country ? : |
|
74
|
0 |
0 |
if $$self{'https'} |
|
77
|
0 |
0 |
unless $res->is_success |
|
84
|
0 |
0 |
unless $data |
|
86
|
0 |
0 |
unless $$data{'results'}[0]{'locations'} |
|
87
|
0 |
0 |
if (@results) |
|
88
|
0 |
0 |
unless wantarray |
|
95
|
0 |
0 |
wantarray ? : |
|
100
|
1 |
0 |
@params % 2 ? : |
|
102
|
0 |
1 |
unless my $locations = $params{'locations'} |
|
103
|
0 |
1 |
unless 'ARRAY' eq ref $locations |
|
104
|
1 |
0 |
if 100 < @$locations |
|
113
|
0 |
0 |
if $$self{'https'} |
|
116
|
0 |
0 |
unless $res->is_success |
|
123
|
0 |
0 |
unless $data |
|
126
|
0 |
0 |
unless $$data{'results'} |