Pedigree::ChildlessNode(3)

NAME
Pedigree::ChildlessNode - an abortion in a pedigree

SYNOPSIS
use Pedigree::ChildlessNode;

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

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

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

DESCRIPTION
This package contains data about a "childlessness" node. This node is not numbered in pedigree.

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

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 (not used here). We only print the Comment field below the node, and draw this node higher than other nodes.

PrintLegend($lang, @fields);
    This subroutine does nothing since childlessness has no legend.

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, 2007