| line |
true |
false |
branch |
|
53
|
1 |
2 |
unless (defined $class) |
|
59
|
3 |
0 |
unless (defined $ua) |
|
82
|
1 |
2 |
if (ref $_[0] eq 'HASH') { } |
|
|
0 |
2 |
elsif (ref $_[0]) { } |
|
|
2 |
0 |
elsif (@_ % 2 == 0) { } |
|
94
|
3 |
0 |
unless (defined $location) |
|
99
|
0 |
0 |
if (&Encode::is_utf8($location)) |
|
111
|
0 |
0 |
if ($res->is_error) |
|
118
|
0 |
0 |
if (my $rc = $json->decode($res->decoded_content)) |
|
119
|
0 |
0 |
if ($rc->{'error'}) |
|
124
|
0 |
0 |
if (defined $rc->{'latt'} and defined $rc->{'longt'}) |
|
165
|
0 |
0 |
if (@_) |
|
183
|
0 |
0 |
if (@_ % 2 == 0) { } |
|
190
|
0 |
0 |
unless my $latlng = $param{'latlng'} |
|
214
|
0 |
0 |
if (scalar @rc) { } |