| line |
true |
false |
branch |
|
52
|
1 |
2 |
if (not defined $class) { } |
|
|
0 |
2 |
elsif (ref $class) { } |
|
61
|
3 |
0 |
unless (defined $ua) |
|
85
|
6 |
0 |
if (not defined $location or length $location == 0) |
|
91
|
0 |
0 |
unless ($params->{'location'} =~ /\D/) |
|
96
|
0 |
0 |
if (&Encode::is_utf8($location)) |
|
108
|
0 |
0 |
if ($res->is_error) |
|
115
|
0 |
0 |
if (my $rc = $json->decode($res->decoded_content)) |
|
116
|
0 |
0 |
if ($rc->{'error'}) |
|
121
|
0 |
0 |
if (defined $rc->{'latt'} and defined $rc->{'longt'}) |
|
162
|
0 |
0 |
if (@_) |
|
181
|
0 |
0 |
unless my $latlng = $params->{'latlng'} |
|
205
|
0 |
0 |
if (scalar @rc) { } |
|
223
|
2 |
4 |
if ref $_[0] eq "HASH" |
|
229
|
1 |
3 |
if ($num_args == 1 and defined $default) { } |
|
|
0 |
3 |
elsif ($num_args == 1) { } |
|
|
1 |
2 |
elsif ($num_args == 0 and defined $default) { } |
|
|
2 |
0 |
elsif ($num_args % 2 == 0) { } |
|
|
0 |
0 |
elsif ($num_args == 0) { } |