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

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

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