Condition Coverage

File:blib/lib/Genealogy/Obituary/Parser.pm
Coverage:56.0%

line%coveragecondition
32767
ABdec
0X0
100
111
$sex eq "F" and $child =~ /(.+)\s+\((.+)\)/
367100
Adec
00
11
$family{"grandchildren"} and scalar @{$family{"grandchildren"};}
36833
ABdec
0X0
100
111
exists $family{"grandchildren"}[0] and length $family{"grandchildren"}[0] == 0
381100
ABdec
000
011
1X1
not defined $family{"grandchildren"} or $#{$family{"grandchildren"};} <= 0
39450
Adec
00
11
($t =~ /grandm\w+\sto\s+([^\.;]+)/i)[0] || ''
40650
Adec
00
11
$family{"sisters"} ||= []
46450
Adec
00
11
$family{"brothers"} ||= []
47075
ABCdec
0000
0011
01X1
1XX1
$family{"brothers"} or $family{"sisters"} or $family{"siblings"}
54850
Adec
00
11
$family{"spouse"} ||= []
55850
Adec
00
11
$family{"spouse"} ||= []
56050
Adec
00
11
$3 // ""
56850
Adec
00
11
$family{"spouse"} ||= []
57250
Adec
00
11
$family{"spouse"} ||= []
58240
ABCDdec
0XXX0
10XX0
110X0
11100
11111
exists $family{'spouse'} and ref $family{"spouse"} eq "HASH" and defined $family{"spouse"}[0]{"location"} and $family{"spouse"}[0]{"location"} eq "the late"
62450
Adec
00
11
($text =~ /mother-in-law to\s+([^\.;]+)/i)[0] || ''
74233
ABdec
0X0
100
111
$dt and not $@
74933
ABdec
000
011
1X1
$geocoder ||= "Geo::Coder::List"->new->push("Geo::Coder::Free"->new)