| line |
true |
false |
branch |
|
25
|
0 |
4620 |
unless defined $name |
|
43
|
864 |
3600 |
unless $surname |
|
57
|
0 |
4464 |
unless ($INC{'Text/Soundex.pm'}) |
|
67
|
0 |
0 |
$sex =~ /^M/i ? : |
|
|
0 |
0 |
$sex =~ /^F/i ? : |
|
|
0 |
0 |
defined $sex ? : |
|
75
|
1337 |
0 |
wantarray ? : |
|
81
|
1337 |
0 |
wantarray ? : |
|
93
|
1169 |
0 |
wantarray ? : |
|
100
|
1169 |
0 |
wantarray ? : |
|
106
|
1145 |
0 |
wantarray ? : |
|
113
|
1193 |
0 |
wantarray ? : |
|
125
|
0 |
0 |
if ($cur->{'xref'} eq $test->{'xref'}) |
|
130
|
0 |
0 |
if $half_sibling |
|
133
|
0 |
0 |
wantarray ? : |
|
142
|
0 |
0 |
if $a[$i]{'xref'} eq $self->{'xref'} |
|
144
|
0 |
0 |
wantarray ? : |
|
153
|
0 |
0 |
if $a[$i]{'xref'} eq $self->{'xref'} |
|
155
|
0 |
0 |
wantarray ? : |
|
161
|
24 |
0 |
wantarray ? : |
|
167
|
0 |
0 |
wantarray ? : |
|
173
|
24 |
0 |
wantarray ? : |
|
179
|
0 |
0 |
wantarray ? : |
|
185
|
1457 |
0 |
wantarray ? : |
|
191
|
24 |
0 |
wantarray ? : |
|
197
|
24 |
0 |
wantarray ? : |
|
231
|
1 |
2 |
if ($record->{'tag'} =~ /$f->[0]/ and $self->resolve($record->{'value'})->{'xref'} eq $xref) |
|
233
|
0 |
1 |
unless $fam->delete_record($record) |
|
236
|
0 |
0 |
unless $fam->tag_value('HUSB') or $fam->tag_value('WIFE') or $fam->tag_value('CHIL') |
|
244
|
0 |
1 |
unless $self->{'gedcom'}{'record'}->delete_record($self) |
|
245
|
1 |
0 |
if $ret |
|
251
|
0 |
0 |
if shift() |
|
260
|
0 |
0 |
unless $generations |
|
261
|
0 |
0 |
unless $indent |
|
262
|
0 |
0 |
unless $generations > 0 |
|
264
|
0 |
0 |
unless $indent |
|
270
|
0 |
0 |
unless $spouse |
|
272
|
0 |
0 |
if $self->xref eq $spouse->xref |
|
287
|
4989 |
6 |
wantarray ? : |
|
293
|
4917 |
0 |
wantarray ? : |