| line | % | coverage | branch |
|---|
| 123 | 50 | T | F | if (not defined $class) { } |
| 50 | T | F | elsif (&Scalar::Util::blessed($class)) { } |
| 133 | 100 | T | F | unless my $key = $params->{'key'} |
| 136 | 100 | T | F | unless (defined $ua) |
| 199 | 100 | T | F | if (@_ == 1 and &Scalar::Util::blessed($_[0]) and $_[0]->can('latitude')) { } |
| 218 | 50 | T | F | unless (defined $latitude and defined $longitude) |
| 244 | 50 | T | F | if (my $cached = $self->{'cache'}->get($cache_key)) |
| 251 | 100 | T | F | if ($elapsed < $self->{'min_interval'}) |
| 261 | 50 | T | F | if ($res->is_error) |
| 269 | 50 | T | F | if ($@) |
| 277 | 50 | T | F | if ($rc and defined $rc->{'status'} and $rc->{'status'} ne "OK") |
| 278 | 0 | T | F | if (my $logger = $self->{'logger'}) |
| 312 | 0 | T | F | if (@_) |