| line |
true |
false |
branch |
|
37
|
3 |
8 |
if ($args{'sensor'}) |
|
39
|
1 |
2 |
unless ($sensor =~ /^(false|true)$/) |
|
45
|
1 |
9 |
if ($args{'bounds'}) |
|
50
|
0 |
10 |
if %args |
|
56
|
0 |
17 |
if (@_) |
|
68
|
16 |
0 |
if ($resp->is_success) { } |
|
71
|
1 |
15 |
if ($raw) |
|
74
|
11 |
4 |
if ($res->{'status'} eq 'OK') { } |
|
|
2 |
2 |
elsif ($res->{'status'} eq 'ZERO_RESULTS') { } |
|
75
|
1 |
10 |
if (wantarray) { } |
|
94
|
0 |
19 |
$self->{'use_https'} ? : |
|
97
|
2 |
17 |
if defined $self->{'sensor'} |
|
98
|
1 |
18 |
if defined $self->{'region'} |
|
99
|
2 |
17 |
if defined $self->{'language'} |
|
100
|
2 |
17 |
if (defined $self->{'bounds'}) |
|
103
|
1 |
18 |
if defined $self->{'key'} |
|
113
|
0 |
1 |
if @_ |
|
120
|
0 |
1 |
if @_ |
|
126
|
0 |
3 |
if @_ |
|
134
|
5 |
2 |
if (@_) |
|
136
|
1 |
4 |
if (ref $bounds ne 'ARRAY') |
|
139
|
1 |
3 |
if (@$bounds != 2) |
|
142
|
2 |
4 |
ref $_ eq 'HASH' && exists $_->{'lng'} && exists $_->{'lat'} ? : |
|
|
2 |
1 |
if (grep({ref $_ eq 'HASH' && exists $_->{'lng'} && exists $_->{'lat'} ? 1 : 0;} @$bounds) != 2) |