| 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 (@_) |