Pedigree::PersonNode(3)

NAME
Pedigree::PersonNode - a person in a pedigree

SYNOPSIS
use Pedigree::PersonNode;

$node = new Pedigree::PersonNode(%params);

$Id = $node->MotherId(); $Id = $node->FatherId();

$isProband = $node->isProband();

$sex = $node->Sex();

$DoB = $node->DoB();

$DoD = $node->DoD();

$cond = $node->Condition();

$GenName = $node->GetGenName();

$node->SetGenName($name);

$node->DrawNode($xidst, $ydist, $belowtextfont, $abovetextfont, @fieldsfornode);

$node->PrintLegend($land, @fields);

DESCRIPTION
This package contains data about a person.

new(%params);
    Construct a new node from the given parameters.

MotherId();
    Return Mother Id.

FatherId();
    Return Father Id.

isProband();
    Return 1 if the pesron is a Proband and zero otherwise

Sex();
    Get the sex of the node

DoB();
    Get the DoB of the node

DoD();
    Get the DoB of the node

Condition();
    Returns node conditon.

GetGenName();
    Find the generation name for the node

SetGenName($name);
    Set the generation name of the node

DrawNode($xdist, $ydist, $belowtextfont, $abovetextfont, @fieldsfornode);
    Output the command to draw this node. The parameters are distances between the nodes (in cm) and fields for abovetext.

PrintLegend($lang, @fields);
    Print the legend for the given node, including @fields in the given language $lang.

ENVIRONMENT
The calling program should define $main::DEBUG and set it to 0 or 1.

SEE ALSO
pedigree(1), Pedigree(3)

AUTHOR
Boris Veytsman, Leila Akhmadeeva, 2006, 2007