| line |
true |
false |
branch |
|
25
|
0 |
4620 |
unless defined $name |
|
43
|
864 |
3600 |
unless $surname |
|
57
|
0 |
4464 |
unless ($INC{'Text/Soundex.pm'}) |
|
67
|
6 |
0 |
$sex =~ /^M/i ? : |
|
|
0 |
6 |
$sex =~ /^F/i ? : |
|
|
6 |
0 |
defined $sex ? : |
|
75
|
1409 |
24 |
wantarray ? : |
|
81
|
1409 |
24 |
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
|
5181 |
6 |
wantarray ? : |
|
293
|
4917 |
0 |
wantarray ? : |
|
304
|
6 |
6 |
unless my(@ancestors) = $self->ancestors |
|
307
|
0 |
6 |
if $sex eq 'U' |
|
310
|
6 |
18 |
if ($person1 eq $other) |
|
313
|
6 |
0 |
$sex eq 'M' ? : |
|
314
|
0 |
6 |
if ($steps >= 5) { } |
|
|
0 |
6 |
elsif ($steps == 1) { } |
|
|
6 |
0 |
elsif ($steps == 2) { } |
|
|
0 |
0 |
elsif ($steps == 3) { } |
|
|
0 |
0 |
elsif ($steps == 4) { } |
|
|
0 |
0 |
elsif ($steps <= 0) { } |
|
326
|
0 |
0 |
if (my $spouse = $other->spouse) |
|
327
|
0 |
0 |
if ($self->_stepsabove($spouse, 0)) |
|
339
|
0 |
0 |
unless my(@ancestors2) = $other->ancestors |
|
350
|
0 |
0 |
if ($person1 eq $person2) |
|
353
|
0 |
0 |
if $steps1 > 7 |
|
355
|
0 |
0 |
if $steps2 > 7 |
|
391
|
0 |
0 |
if ($rc and $rc =~ /cousin/) |
|
394
|
0 |
0 |
if ($father and $father->_stepsabove($person2, 0) > 0) { } |
|
|
0 |
0 |
elsif ($mother and $mother->_stepsabove($person2, 0) > 0) { } |
|
412
|
0 |
30 |
if $count == -1 |
|
414
|
6 |
24 |
if $self eq $target |
|
417
|
12 |
12 |
if ($father) |
|
419
|
0 |
12 |
unless $rc == -1 |
|
423
|
12 |
12 |
if ($mother) |