| line | % | coverage | branch |
|---|
| 59 | 100 | T | F | if (not defined $class) { } |
| 100 | T | F | elsif (&Scalar::Util::blessed($class)) { } |
| 68 | 100 | T | F | unless (defined $params->{'lat'}) |
| 72 | 100 | T | F | if (abs $params->{'lat'} > 90) |
| 78 | 100 | T | F | unless (defined $params->{'long'}) |
| 82 | 100 | T | F | if (abs $params->{'long'} > 180) |
| 164 | 100 | T | F | unless (defined $location) |
| 219 | 0 | T | F | if (defined $self->{'key'}) |
| 220 | 0 | T | F | if defined $self->{'tz'} |
| 222 | 0 | T | F | unless (defined $self->{'timezonedb'}) |
| 223 | 0 | T | F | unless ("TimeZone::TimeZoneDB"->can("get_time_zone")) |
| 258 | 100 | T | F | if ($self->{'location'}) |
| 263 | 50 | T | F | if ($rc) |
| 270 | 100 | T | F | if (my $value = $self->{$field} || $$self{ucfirst $field}) |
| 271 | 100 | T | F | if ($rc) |
| 272 | 100 | T | F | if ($field eq 'street' or $field eq 'road') { } |
| 273 | 50 | T | F | if ($self->{'number'} or $self->{'house_number'}) { } |
| 283 | 100 | T | F | if (my $country = $self->{'country'} // $self->{'Country'}) |
| 284 | 100 | T | F | if (uc $country eq 'US') { } |
| 50 | T | F | elsif ($country eq 'Canada' or $country eq 'Australia') { } |
| 50 | T | F | elsif (uc $country eq 'GB') { } |
| 285 | 100 | T | F | if ($field eq "state" or $field eq "region" or $field eq "country") |
| 287 | 100 | T | F | if (lc $field eq "country") |
| 292 | 0 | T | F | if ($field eq "state") |
| 296 | 100 | T | F | if ($field eq "country") |
| 302 | 100 | T | F | if ($leave_case) { } |
| 306 | 100 | T | F | if ($field eq 'street' || $field eq 'road' and $rc =~ /(.+)\s([NS][ew])$/) |
| 372 | 100 | T | F | if $key eq "DESTROY" |
| 379 | 100 | T | F | if (@_) |
| 387 | 100 | T | F | if defined $self->{$key} |
| 439 | 100 | T | F | unless my $fields = $FIELDS_FOR_ACCURACY{$level} |
| 442 | 100 | T | F | if $field{$field} |
| 458 | 100 | T | F | if defined $self->{$key} |
| 480 | 50 | T | F | unless defined $value |
| 481 | 100 | T | F | if ref $value |
| 489 | 100 | T | F | unless defined $value |
| 490 | 50 | T | F | ref $value ? : |
| 100 | T | F | if ref $value or not &Scalar::Util::looks_like_number($value) or $value < 0 or $value > 1 |
| 500 | 100 | T | F | unless defined $value |
| 502 | 50 | T | F | ref $value ? : |
| 100 | T | F | if ref $value or not $IS_ACCURACY_LEVEL{$value} |
| 518 | 100 | T | F | unless @_ |
| 535 | 50 | T | F | unless @_ |
| 554 | 100 | T | F | unless @_ |
| 617 | 100 | T | F | unless @_ |
| 635 | 100 | T | F | unless @_ |
| 651 | 100 | T | F | unless @_ |
| 667 | 100 | T | F | unless @_ |