| line |
true |
false |
branch |
|
37
|
3 |
6 |
if ($args{'sensor'}) { } |
|
39
|
1 |
2 |
unless ($sensor =~ /^(false|true)$/) |
|
47
|
1 |
7 |
if ($args{'bounds'}) |
|
50
|
0 |
8 |
if %args |
|
56
|
0 |
14 |
if (@_) |
|
68
|
14 |
0 |
if ($resp->is_success) { } |
|
71
|
1 |
13 |
if ($raw) |
|
74
|
11 |
2 |
if ($res->{'status'} eq 'OK') { } |
|
|
2 |
0 |
elsif ($res->{'status'} eq 'ZERO_RESULTS') { } |
|
75
|
1 |
10 |
if (wantarray) { } |
|
98
|
1 |
16 |
if defined $self->{'region'} |
|
99
|
2 |
15 |
if defined $self->{'language'} |
|
100
|
1 |
16 |
if (defined $self->{'bounds'}) |
|
112
|
0 |
1 |
if @_ |
|
119
|
0 |
1 |
if @_ |
|
125
|
0 |
3 |
if @_ |
|
133
|
5 |
2 |
if (@_) |
|
135
|
1 |
4 |
if (ref $bounds ne 'ARRAY') |
|
138
|
1 |
3 |
if (@$bounds != 2) |
|
141
|
2 |
4 |
ref $_ eq 'HASH' && exists $_->{'lng'} && exists $_->{'lat'} ? : |
|
|
2 |
1 |
if (grep({ref $_ eq 'HASH' && exists $_->{'lng'} && exists $_->{'lat'} ? 1 : 0;} @$bounds) != 2) |