| line | % | coverage | branch |
|---|
| 128 | 100 | T | F | ref $_[0] ? : |
| 155 | 100 | T | F | if $debug |
| 159 | 50 | T | F | unless ref $indi |
| 165 | 100 | T | F | if (my $birth = $indi->birth) |
| 166 | 100 | T | F | if (ref $birth and my $place = $birth->place) |
| 177 | 100 | T | F | if (my $death = $indi->death) |
| 178 | 50 | T | F | if (ref $death and my $place = $death->place) |
| 191 | 50 | T | F | unless defined $fam and ref $fam |
| 193 | 50 | T | F | ref $fam->husband && $fam->husband->name ? : |
| 194 | 50 | T | F | ref $fam->wife && $fam->wife->name ? : |
| 199 | 50 | T | F | if (my $marriage = $fam->marriage) |
| 200 | 50 | T | F | if (ref $marriage and my $place = $marriage->place) |
| 213 | 100 | T | F | if $debug |
| 214 | 100 | T | F | if $debug |
| 224 | 100 | T | F | unless (exists $cache{$place}) |
| 228 | 100 | T | F | if (defined $lat and defined $long) { } |
| 233 | 50 | T | F | if $debug |
| 234 | 100 | T | F | unless _is_local($location) |
| 237 | 50 | T | F | if $debug |
| 243 | 100 | T | F | if ($cache{$place}) |
| 252 | 100 | T | F | if $debug |
| 254 | 100 | T | F | if scalar @geocoded_events == 0 |
| 256 | 50 | T | F | if $debug |
| 267 | 50 | T | F | if ($google_key) { } |
| 285 | 100 | T | F | unless defined $location |
| 287 | 50 | T | F | if (&blessed($location) and $location->can("latitude") and $location->can("longitude")) |
| 291 | 50 | T | F | if (ref $location eq "HASH") |
| 310 | 50 | T | F | unless ref $location |
| 311 | 50 | T | F | if ref $location eq "ARRAY" |
| 319 | 100 | T | F | if defined $location->{'database'} and $LOCAL_DATABASES{$location->{'database'}} |
| 320 | 100 | T | F | if defined $location->{'geocoder'} and $location->{'geocoder'} =~ /^Geo::Coder::Free/ |
| 335 | 50 | T | F | if ($event_count > 5) |
| 354 | 50 | T | F | if $date_a =~ /^Unknown/i and not $date_b =~ /^Unknown/i |
| 355 | 50 | T | F | if $date_b =~ /^Unknown/i and not $date_a =~ /^Unknown/i |
| 356 | 50 | T | F | if $date_a =~ /^Unknown/i and $date_b =~ /^Unknown/i |
| 362 | 100 | T | F | if ($by_type{'birth'}) |
| 375 | 100 | T | F | if ($by_type{'marriage'}) |
| 388 | 100 | T | F | if ($by_type{'death'}) |
| 428 | 0 | T | F | if ($first) |
| 463 | 100 | T | F | if ($event_count > $max_events) |