| line |
true |
false |
branch |
|
113
|
6 |
4 |
ref $_[0] eq 'HASH' ? : |
|
116
|
1 |
9 |
unless (defined $class) |
|
122
|
1 |
8 |
if ref $class |
|
126
|
2 |
6 |
unless (defined $apiKey and not ref $apiKey) |
|
127
|
1 |
1 |
defined $apiKey ? : |
|
137
|
5 |
1 |
unless defined $args{'host'} |
|
183
|
0 |
5 |
unless my $location = $params->{'location'} |
|
186
|
0 |
5 |
unless ($location =~ /\D/) |
|
192
|
0 |
5 |
if &Encode::is_utf8($location) |
|
209
|
2 |
3 |
if (my $cached = $self->{'cache'}->get($cache_key)) |
|
216
|
1 |
2 |
if ($elapsed < $self->{'min_interval'}) |
|
226
|
0 |
3 |
if ($res->is_error) |
|
237
|
0 |
3 |
if ($@ or not defined $rc) |
|
272
|
0 |
1 |
if @_ |
|
293
|
0 |
0 |
unless my $lat = $params->{'lat'} |
|
294
|
0 |
0 |
unless my $lon = $params->{'lon'} |
|
296
|
0 |
0 |
unless $lat and $lon |
|
309
|
0 |
0 |
if (my $cached = $self->{'cache'}->get($cache_key)) |
|
316
|
0 |
0 |
if ($elapsed < $self->{'min_interval'}) |
|
327
|
0 |
0 |
if ($res->is_error) |
|
340
|
0 |
0 |
if ($@ or not defined $rc) |