In Gedcom::Individual::relationship, you missed step-brother and step-sister. Difference between half-sibling and step-sibling is that half-siblings have one common parent, where step-siblings none.
I could create a PR with the following code added:
if(($self->mother() ne $other->mother()) && ($self->father() ne $other->father())) {
return ($sex eq 'M') ? 'step-brother' : 'step-sister';
}
In
Gedcom::Individual::relationship
, you missedstep-brother
andstep-sister
. Difference betweenhalf-sibling
andstep-sibling
is thathalf-siblings
have one common parent, wherestep-siblings
none.I could create a PR with the following code added:
but when is the following code used?
return $self->relationship_down($other) || $self->relationship_up($other);