| line |
true |
false |
branch |
|
71
|
0 |
12 |
if (not defined $class) { } |
|
|
1 |
11 |
elsif (ref $class) { } |
|
118
|
0 |
0 |
if (@_ % 2 == 0) { } |
|
125
|
0 |
0 |
unless my $location = $param{'location'} |
|
127
|
0 |
0 |
if (&Encode::is_utf8($location)) |
|
131
|
0 |
0 |
$param{'reverse'} ? : |
|
135
|
0 |
0 |
if defined $self->{'language'} |
|
136
|
0 |
0 |
if defined $self->{'region'} |
|
138
|
0 |
0 |
$self->{'sensor'} ? : |
|
140
|
0 |
0 |
if defined $components_params |
|
141
|
0 |
0 |
if defined $self->{'key'} and length $self->{'key'} |
|
146
|
0 |
0 |
if ($self->{'client'} and $self->{'key'}) |
|
154
|
0 |
0 |
if $signature |
|
159
|
0 |
0 |
if ($res->is_error) |
|
166
|
0 |
0 |
unless ($data->{'status'} eq "OK" or $data->{'status'} eq "ZERO_RESULTS") |
|
170
|
0 |
0 |
unless $data->{'results'} |
|
171
|
0 |
0 |
wantarray ? : |
|
187
|
0 |
0 |
if (@_ % 2 == 0) { } |
|
194
|
0 |
0 |
unless my $latlng = $param{'latlng'} |
|
242
|
1 |
7 |
unless grep {$_ eq $filter;} @ALLOWED_FILTERS |
|
243
|
7 |
0 |
if (my $value = $components->{$filter}) { } |
|
250
|
1 |
6 |
unless @validated_components |
|
270
|
0 |
0 |
if (@_) |
|
286
|
0 |
0 |
if (@_) |