| line |
true |
false |
branch |
|
51
|
0 |
4 |
ref $_[0] eq 'HASH' ? : |
|
53
|
1 |
3 |
if (not defined $class) { } |
|
|
1 |
2 |
elsif (ref $class) { } |
|
83
|
0 |
0 |
unless scalar @_ > 0 |
|
87
|
0 |
0 |
if (@_ % 2 == 0) { } |
|
94
|
0 |
0 |
unless (defined $location) |
|
100
|
0 |
0 |
if ($location =~ /,/) |
|
101
|
0 |
0 |
if ($location =~ /^([\w\s\-]+?),([\w\s]+?),[\w\s]+?$/i) { } |
|
114
|
0 |
0 |
if (&Encode::is_utf8($location)) |
|
126
|
0 |
0 |
if ($res->is_error) |
|
136
|
0 |
0 |
if ($county) |
|
141
|
0 |
0 |
if (my $unitary = $result->{'county_unitary'}) |
|
143
|
0 |
0 |
if ($unitary =~ /$county/i or $unitary =~ /$location/i) |
|
147
|
0 |
0 |
if (my $region = $result->{'region'} and $county =~ /\s+(\w+)$/) |
|
148
|
0 |
0 |
if ($region =~ /$1/) |
|
176
|
0 |
0 |
if (@_) |
|
193
|
0 |
0 |
unless scalar @_ > 0 |
|
197
|
0 |
0 |
if (@_ % 2 == 0) { } |
|
204
|
0 |
0 |
unless (defined $latlng) |
|
217
|
0 |
0 |
if ($res->is_error) |
|
225
|
0 |
0 |
if ($rc->{'result'}) |