| line | % | coverage | branch |
|---|
| 195 | 100 | T | F | if (not defined $class) { } |
| 100 | T | F | elsif (&Scalar::Util::blessed($class)) { } |
| 200 | 100 | T | F | if (exists $params->{'ua'}) |
| 201 | 100 | T | F | if (not defined $params->{'ua'}) { } |
| 100 | T | F | elsif (not &Scalar::Util::blessed($params->{'ua'}) && $params->{'ua'}->can('get')) { } |
| 216 | 100 | T | F | unless my $key = $params->{'key'} |
| 220 | 100 | T | F | unless (defined $ua) |
| 322 | 100 | T | F | if (@_ == 1 and &Scalar::Util::blessed($_[0]) and $_[0]->can('latitude')) { } |
| 344 | 100 | T | F | unless defined $latitude |
| 345 | 100 | T | F | unless defined $longitude |
| 366 | 100 | T | F | if (my $cached = $self->{'cache'}->get($cache_key)) |
| 373 | 100 | T | F | if ($elapsed < $self->{'min_interval'}) |
| 384 | 100 | T | F | if ($res->is_error) |
| 386 | 50 | T | F | if (my $logger = $self->{'logger'}) |
| 395 | 100 | T | F | if ($@) |
| 396 | 50 | T | F | if (my $logger = $self->{'logger'}) |
| 407 | 100 | T | F | if ($rc and defined $rc->{'status'} and $rc->{'status'} ne "OK") |
| 408 | 100 | T | F | if (my $logger = $self->{'logger'}) |
| 488 | 100 | T | F | unless @_ |
| 495 | 100 | T | F | if (@_ == 2 and defined $_[0] and not ref $_[0] and $_[0] eq 'ua') { } |
| 514 | 100 | T | F | unless (defined $params->{'ua'}) |
| 515 | 100 | T | F | if (my $logger = $self->{'logger'}) |