| line |
true |
false |
branch |
|
51
|
0 |
11 |
unless $class |
|
53
|
0 |
11 |
ref $_[0] eq 'HASH' ? : |
|
56
|
1 |
10 |
unless (defined $args{'lat'}) |
|
61
|
1 |
9 |
unless (defined $args{'long'}) |
|
129
|
0 |
3 |
unless $location |
|
179
|
1 |
4 |
if ($self->{'location'}) |
|
184
|
0 |
4 |
if ($rc) |
|
190
|
15 |
25 |
if (my $value = $self->{$field} || $$self{ucfirst $field}) |
|
191
|
11 |
4 |
if ($rc) { } |
|
|
0 |
4 |
elsif ($rc) { } |
|
192
|
2 |
9 |
if ($field eq 'street' or $field eq 'road') { } |
|
193
|
2 |
0 |
if ($self->{'number'} or $self->{'house_number'}) { } |
|
205
|
15 |
0 |
if (my $country = $self->{'country'} // $self->{'Country'}) |
|
206
|
12 |
3 |
if (uc $country eq 'US') { } |
|
|
0 |
3 |
elsif ($country eq 'Canada' or $country eq 'Australia') { } |
|
|
3 |
0 |
elsif (uc $country eq 'GB') { } |
|
207
|
4 |
7 |
if ($field eq "state" or $field eq "region" or $field eq "country") |
|
209
|
3 |
2 |
if (lc $field eq "country") |
|
214
|
0 |
0 |
if ($field eq "state") |
|
218
|
1 |
2 |
if ($field eq "country") |
|
224
|
6 |
9 |
if ($leave_case) { } |
|
228
|
0 |
9 |
if ($field eq 'street' || $field eq 'road' and $rc =~ /(.+)\s([NS][ew])$/) |
|
247
|
5 |
9 |
if ($rc) |
|
273
|
9 |
3 |
if $key eq "DESTROY" |
|
277
|
1 |
2 |
if (my $value = shift()) |