line | % | coverage | condition |
327 | 67 | | $sex eq "F" and $child =~ /(.+)\s+\((.+)\)/ |
367 | 100 | | $family{"grandchildren"} and scalar @{$family{"grandchildren"};} |
368 | 33 | | exists $family{"grandchildren"}[0] and length $family{"grandchildren"}[0] == 0 |
381 | 100 | | not defined $family{"grandchildren"} or $#{$family{"grandchildren"};} <= 0 |
394 | 50 | | ($t =~ /grandm\w+\sto\s+([^\.;]+)/i)[0] || '' |
406 | 50 | | $family{"sisters"} ||= [] |
464 | 50 | | $family{"brothers"} ||= [] |
470 | 75 | | $family{"brothers"} or $family{"sisters"} or $family{"siblings"} |
548 | 50 | | $family{"spouse"} ||= [] |
558 | 50 | | $family{"spouse"} ||= [] |
560 | 50 | | $3 // "" |
568 | 50 | | $family{"spouse"} ||= [] |
572 | 50 | | $family{"spouse"} ||= [] |
582 | 40 | A | B | C | D | dec |
---|
0 | X | X | X | 0 | 1 | 0 | X | X | 0 | 1 | 1 | 0 | X | 0 | 1 | 1 | 1 | 0 | 0 | 1 | 1 | 1 | 1 | 1 |
| exists $family{'spouse'} and ref $family{"spouse"} eq "HASH" and defined $family{"spouse"}[0]{"location"} and $family{"spouse"}[0]{"location"} eq "the late" |
624 | 50 | | ($text =~ /mother-in-law to\s+([^\.;]+)/i)[0] || '' |
742 | 33 | | $dt and not $@ |
749 | 33 | | $geocoder ||= "Geo::Coder::List"->new->push("Geo::Coder::Free"->new) |