| line | % | coverage | branch |
|---|
| 139 | 100 | T | F | unless $config |
| 148 | 100 | T | F | unless (defined $driver) |
| 150 | 50 | T | F | if ($logger) |
| 156 | 100 | T | F | unless (_is_driver_available($driver)) |
| 158 | 50 | T | F | if ($logger) |
| 173 | 0 | T | F | if $logger |
| 181 | 100 | T | F | unless exists $config->{$cache_type} |
| 184 | 100 | T | F | unless ref $cache_config eq "HASH" |
| 188 | 50 | T | F | if (exists $cache_config->{'driver'}) |
| 192 | 100 | T | F | unless grep {$_ eq $driver;} @valid_drivers |
| 197 | 100 | T | F | unless exists $cache_config->{$param} |
| 199 | 100 | T | F | unless defined $value and $value =~ /^\d+$/u and $value > 0 |
| 204 | 100 | T | F | if (exists $cache_config->{'port'}) |
| 206 | 50 | T | F | unless $port >= 1 and $port <= 65535 |
| 211 | 50 | T | F | if (exists $cache_config->{'datastore'} and exists $cache_config->{'global'} and my $driver = $cache_config->{'driver'}) |
| 220 | 50 | T | F | if $ENV{$env_var} |
| 223 | 100 | T | F | $cache_type eq 'disc_cache' ? : |
| 227 | 50 | T | F | $cache_type eq 'disc_cache' ? : |
| 231 | 100 | T | F | if $driver =~ /^(Memory|Null)$/u |
| 242 | 50 | T | F | unless exists $driver_modules{$driver} |
| 244 | 100 | T | F | if ($driver_modules{$driver}->can("new")) |
| 253 | 100 | T | F | if ($@) |
| 267 | 50 | T | F | if ($logger and $logger->can('error')) { } |
| 276 | 50 | T | F | if ($driver eq 'Redis') { } |
| 50 | T | F | elsif ($driver eq 'DBI') { } |
| 50 | T | F | elsif ($driver eq 'SharedMem') { } |
| 100 | T | F | elsif ($driver eq 'Memory') { } |
| 50 | T | F | elsif ($driver eq 'Memcached') { } |
| 100 | T | F | elsif (not $driver =~ /^(Null)$/u) { } |
| 296 | 0 | T | F | if (@servers) |
| 306 | 0 | T | F | unless $config->{'redis_options'} |
| 312 | 0 | T | F | unless $connect_string |
| 323 | 0 | T | F | if $logger |
| 341 | 50 | T | F | if (exists $config->{'global'}) { } |
| 350 | 0 | T | F | if (@servers) { } |
| 355 | 0 | T | F | if $logger |
| 362 | 100 | T | F | unless $root_dir |
| 363 | 100 | T | F | unless -d $root_dir and -w $root_dir |
| 372 | 0 | T | F | unless $server_config |
| 379 | 0 | T | F | unless ($server_entry =~ /:/u) |
| 385 | 0 | T | F | if ($server_entry =~ /^([a-zA-Z0-9.-]+):(\d+)$/u) { } |
| 387 | 0 | T | F | unless $port > 0 and $port <= 65535 |
| 389 | 0 | T | F | if $logger |
| 418 | 100 | T | F | unless defined $$coord |
| 419 | 100 | T | F | unless &looks_like_number($$coord) |
| 423 | 100 | T | F | if abs $lat1 > 90 or abs $lat2 > 90 |
| 425 | 100 | T | F | if abs $lon1 > 180 or abs $lon2 > 180 |
| 429 | 100 | T | F | if $lat1 == $lat2 and $lon1 == $lon2 |
| 433 | 100 | T | F | unless $unit =~ /^[KNM]$/u |
| 437 | 100 | T | F | $unit eq 'N' ? : |
| 100 | T | F | $unit eq 'K' ? : |
| 470 | 100 | T | F | if (@words >= 3) { } |
| 100 | T | F | elsif (@words == 2) { } |
| 472 | 100 | T | F | if (lc $words[-2] ne 'cross' and $a = $abbreviations->abbreviate($words[-2])) { } |
| 100 | T | F | elsif ($a = $abbreviations->abbreviate($words[-1])) { } |
| 479 | 100 | T | F | if (my $a = $abbreviations->abbreviate($words[-1])) |