| line | % | coverage | branch |
|---|
| 117 | 100 | T | F | ref $_[0] ? : |
| 144 | 100 | T | F | if $debug |
| 148 | 50 | T | F | unless ref $indi |
| 154 | 100 | T | F | if (my $birth = $indi->birth) |
| 155 | 100 | T | F | if (ref $birth and my $place = $birth->place) |
| 166 | 100 | T | F | if (my $death = $indi->death) |
| 167 | 50 | T | F | if (ref $death and my $place = $death->place) |
| 180 | 50 | T | F | unless defined $fam and ref $fam |
| 182 | 50 | T | F | ref $fam->husband && $fam->husband->name ? : |
| 183 | 50 | T | F | ref $fam->wife && $fam->wife->name ? : |
| 188 | 50 | T | F | if (my $marriage = $fam->marriage) |
| 189 | 50 | T | F | if (ref $marriage and my $place = $marriage->place) |
| 202 | 100 | T | F | if $debug |
| 203 | 100 | T | F | if $debug |
| 213 | 100 | T | F | unless (exists $cache{$place}) |
| 215 | 100 | T | F | if ($location and $location->{'lat'} and $location->{'lon'}) { } |
| 220 | 50 | T | F | if $debug |
| 221 | 100 | T | F | unless $location->{'geocoder'} =~ /^Geo::Coder::Free/ |
| 224 | 50 | T | F | if $debug |
| 230 | 100 | T | F | if ($cache{$place}) |
| 239 | 100 | T | F | if $debug |
| 241 | 100 | T | F | if scalar @geocoded_events == 0 |
| 243 | 50 | T | F | if $debug |
| 254 | 50 | T | F | if ($google_key) { } |
| 273 | 50 | T | F | if ($event_count > 5) |
| 292 | 50 | T | F | if $date_a =~ /^Unknown/i and not $date_b =~ /^Unknown/i |
| 293 | 50 | T | F | if $date_b =~ /^Unknown/i and not $date_a =~ /^Unknown/i |
| 294 | 50 | T | F | if $date_a =~ /^Unknown/i and $date_b =~ /^Unknown/i |
| 300 | 100 | T | F | if ($by_type{'birth'}) |
| 313 | 100 | T | F | if ($by_type{'marriage'}) |
| 326 | 100 | T | F | if ($by_type{'death'}) |
| 366 | 0 | T | F | if ($first) |
| 401 | 50 | T | F | if ($event_count > $max_events) |