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

POD ERRORS
Hey! The above document had some coding errors, which are explained below:

Around line 39:
    You can't have =items (as at line 58) unless the first thing after the =over is an =item