| line | % | coverage | branch |
|---|
| 128 | 100 | T | F | if (not defined $class) { } |
| 100 | T | F | elsif (&Scalar::Util::blessed($class)) { } |
| 139 | 100 | T | F | unless (defined $ua) |
| 195 | 50 | T | F | if (scalar @_ == 2 and &Scalar::Util::blessed($_[0]) and $_[0]->can('latitude')) { } |
| 201 | 0 | T | F | if ($_[0]->can("tz") and $ENV{'TIMEZONEDB_KEY'}) |
| 214 | 0 | T | F | if (not defined $latitude and defined $location and &Scalar::Util::blessed($location) and $location->can("latitude")) |
| 219 | 50 | T | F | unless (defined $latitude and defined $longitude and defined $date) |
| 220 | 50 | T | F | if (my $logger = $self->{'logger'}) |
| 228 | 50 | T | F | if ($latitude =~ /^\./) |
| 231 | 50 | T | F | if ($latitude =~ /^\-\.(\d+)$/) |
| 234 | 50 | T | F | if ($longitude =~ /^\./) |
| 237 | 50 | T | F | if ($longitude =~ /^\-\.(\d+)$/) |
| 241 | 50 | T | F | unless ($latitude =~ /^-?\d+(\.\d+)?$/ and $longitude =~ /^-?\d+(\.\d+)?$/) |
| 242 | 0 | T | F | if (my $logger = $self->{'logger'}) |
| 248 | 50 | T | F | if (&Scalar::Util::blessed($date) and $date->can('strftime')) { } |
| 100 | T | F | elsif ($date =~ /^(\d{4})-/) { } |
| 251 | 100 | T | F | if $1 < 1940 |
| 257 | 50 | T | F | unless ($date =~ /^\d{4}-\d{2}-\d{2}$/) |
| 258 | 0 | T | F | if (my $logger = $self->{'logger'}) |
| 285 | 50 | T | F | if (my $cached = $self->{'cache'}->get($cache_key)) |
| 292 | 100 | T | F | if ($elapsed < $self->{'min_interval'}) |
| 301 | 50 | T | F | if ($res->is_error) |
| 309 | 100 | T | F | if ($@) |
| 314 | 50 | T | F | if ($rc) |
| 315 | 50 | T | F | if ($rc->{'error'}) |
| 319 | 50 | T | F | if (defined $rc->{'hourly'}) |
| 352 | 0 | T | F | if (@_) |