| line |
true |
false |
branch |
|
58
|
1 |
33 |
if (not defined $class) { } |
|
|
1 |
32 |
elsif (builtin::blessed($class)) { } |
|
67
|
2 |
30 |
unless (defined $params->{'lat'}) |
|
71
|
3 |
27 |
if (abs $params->{'lat'} > 90) |
|
77
|
2 |
25 |
unless (defined $params->{'long'}) |
|
81
|
3 |
22 |
if (abs $params->{'long'} > 180) |
|
163
|
1 |
4 |
unless (defined $location) |
|
218
|
0 |
0 |
if (defined $self->{'key'}) |
|
219
|
0 |
0 |
if defined $self->{'tz'} |
|
221
|
0 |
0 |
unless (defined $self->{'timezonedb'}) |
|
222
|
0 |
0 |
unless ("TimeZone::TimeZoneDB"->can("get_time_zone")) |
|
257
|
1 |
5 |
if ($self->{'location'}) |
|
262
|
0 |
5 |
if ($rc) |
|
269
|
17 |
33 |
if (my $value = $self->{$field} || $$self{ucfirst $field}) |
|
270
|
12 |
5 |
if ($rc) { } |
|
|
0 |
5 |
elsif ($rc) { } |
|
271
|
2 |
10 |
if ($field eq 'street' or $field eq 'road') { } |
|
272
|
2 |
0 |
if ($self->{'number'} or $self->{'house_number'}) { } |
|
284
|
17 |
0 |
if (my $country = $self->{'country'} // $self->{'Country'}) |
|
285
|
14 |
3 |
if (uc $country eq 'US') { } |
|
|
0 |
3 |
elsif ($country eq 'Canada' or $country eq 'Australia') { } |
|
|
3 |
0 |
elsif (uc $country eq 'GB') { } |
|
286
|
5 |
8 |
if ($field eq "state" or $field eq "region" or $field eq "country") |
|
288
|
4 |
2 |
if (lc $field eq "country") |
|
293
|
0 |
0 |
if ($field eq "state") |
|
297
|
1 |
2 |
if ($field eq "country") |
|
303
|
7 |
10 |
if ($leave_case) { } |
|
307
|
2 |
8 |
if ($field eq 'street' || $field eq 'road' and $rc =~ /(.+)\s([NS][ew])$/) |
|
360
|
23 |
4 |
if $key eq "DESTROY" |
|
364
|
1 |
3 |
if (my $value = shift()) |