| line | % | coverage | branch |
|---|
| 140 | 100 | T | F | unless $config |
| 149 | 100 | T | F | unless (defined $driver) |
| 151 | 50 | T | F | if ($logger) |
| 157 | 100 | T | F | unless (_is_driver_available($driver)) |
| 159 | 50 | T | F | if ($logger) |
| 174 | 0 | T | F | if $logger |
| 182 | 100 | T | F | unless exists $config->{$cache_type} |
| 185 | 100 | T | F | unless ref $cache_config eq "HASH" |
| 189 | 50 | T | F | if (exists $cache_config->{'driver'}) |
| 193 | 100 | T | F | unless grep {$_ eq $driver;} @valid_drivers |
| 198 | 100 | T | F | unless exists $cache_config->{$param} |
| 200 | 100 | T | F | unless defined $value and $value =~ /^\d+$/u and $value > 0 |
| 205 | 100 | T | F | if (exists $cache_config->{'port'}) |
| 207 | 50 | T | F | unless $port >= 1 and $port <= 65535 |
| 212 | 50 | T | F | if (exists $cache_config->{'datastore'} and exists $cache_config->{'global'} and my $driver = $cache_config->{'driver'}) |
| 221 | 50 | T | F | if $ENV{$env_var} |
| 224 | 100 | T | F | $cache_type eq 'disc_cache' ? : |
| 228 | 50 | T | F | $cache_type eq 'disc_cache' ? : |
| 232 | 100 | T | F | if $driver =~ /^(Memory|Null)$/u |
| 243 | 50 | T | F | unless exists $driver_modules{$driver} |
| 245 | 100 | T | F | if ($driver_modules{$driver}->can("new")) |
| 254 | 100 | T | F | if ($@) |
| 268 | 50 | T | F | if ($logger and $logger->can('error')) { } |
| 277 | 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) { } |
| 297 | 0 | T | F | if (@servers) |
| 307 | 0 | T | F | unless $config->{'redis_options'} |
| 313 | 0 | T | F | unless $connect_string |
| 324 | 0 | T | F | if $logger |
| 342 | 50 | T | F | if (exists $config->{'global'}) { } |
| 351 | 0 | T | F | if (@servers) { } |
| 356 | 0 | T | F | if $logger |
| 363 | 100 | T | F | unless $root_dir |
| 364 | 100 | T | F | unless -d $root_dir and -w $root_dir |
| 373 | 0 | T | F | unless $server_config |
| 380 | 0 | T | F | unless ($server_entry =~ /:/u) |
| 386 | 0 | T | F | if ($server_entry =~ /^([a-zA-Z0-9.-]+):(\d+)$/u) { } |
| 388 | 0 | T | F | unless $port > 0 and $port <= 65535 |
| 390 | 0 | T | F | if $logger |
| 419 | 100 | T | F | unless defined $$coord |
| 420 | 100 | T | F | unless &looks_like_number($$coord) |
| 424 | 100 | T | F | if abs $lat1 > 90 or abs $lat2 > 90 |
| 426 | 100 | T | F | if abs $lon1 > 180 or abs $lon2 > 180 |
| 430 | 100 | T | F | if $lat1 == $lat2 and $lon1 == $lon2 |
| 434 | 100 | T | F | unless $unit =~ /^[KNM]$/u |
| 438 | 100 | T | F | $unit eq 'N' ? : |
| 100 | T | F | $unit eq 'K' ? : |
| 471 | 100 | T | F | if (@words >= 3) { } |
| 100 | T | F | elsif (@words == 2) { } |
| 473 | 100 | T | F | if (lc $words[-2] ne 'cross' and $a = $abbreviations->abbreviate($words[-2])) { } |
| 100 | T | F | elsif ($a = $abbreviations->abbreviate($words[-1])) { } |
| 480 | 100 | T | F | if (my $a = $abbreviations->abbreviate($words[-1])) |