diff options
Diffstat (limited to 'Master/texmf-dist/scripts/pedigree-perl/Pedigree')
9 files changed, 19 insertions, 12 deletions
diff --git a/Master/texmf-dist/scripts/pedigree-perl/Pedigree/AbortionNode.pm b/Master/texmf-dist/scripts/pedigree-perl/Pedigree/AbortionNode.pm index df56988c16d..9f18768d2d9 100644 --- a/Master/texmf-dist/scripts/pedigree-perl/Pedigree/AbortionNode.pm +++ b/Master/texmf-dist/scripts/pedigree-perl/Pedigree/AbortionNode.pm @@ -20,7 +20,6 @@ $node->PrintLegend(I<$land>, I<@fields>); This package contains data about an abortion. Abortion is like a person, but it cannot have kids, and it is drawn differently -=over 4 =cut @@ -43,6 +42,8 @@ our @ISA=('Pedigree::PersonNode'); =pod +=over 4 + =item B<DrawNode>(I<$xdist>, I<$ydist>, I<$belowtextfont>, I<$abovetextfont>, I<@fieldsfornode>); diff --git a/Master/texmf-dist/scripts/pedigree-perl/Pedigree/Area.pm b/Master/texmf-dist/scripts/pedigree-perl/Pedigree/Area.pm index 12cda99deb9..d62cc7b1b70 100644 --- a/Master/texmf-dist/scripts/pedigree-perl/Pedigree/Area.pm +++ b/Master/texmf-dist/scripts/pedigree-perl/Pedigree/Area.pm @@ -48,7 +48,6 @@ The units are distances between the nodes in X and Y direction. The Y axis is I<downward>: the earlier generations have smaller Y coordinates. -=over 4 =cut @@ -66,6 +65,8 @@ use strict; =pod +=over 4 + =item B<new>(I<$rootnode>); Construct a new area around the given rootnode diff --git a/Master/texmf-dist/scripts/pedigree-perl/Pedigree/ChildlessNode.pm b/Master/texmf-dist/scripts/pedigree-perl/Pedigree/ChildlessNode.pm index db4b1c985b6..c932d97809c 100644 --- a/Master/texmf-dist/scripts/pedigree-perl/Pedigree/ChildlessNode.pm +++ b/Master/texmf-dist/scripts/pedigree-perl/Pedigree/ChildlessNode.pm @@ -21,8 +21,6 @@ $node->PrintLegend(I<$land>, I<@fields>); This package contains data about a "childlessness" node. This node is not numbered in pedigree. -=over 4 - =cut @@ -42,6 +40,9 @@ our @ISA=('Pedigree::PersonNode'); =pod +=over 4 + + =item B<new>(I<%params>); Construct a new node from the given parameters. diff --git a/Master/texmf-dist/scripts/pedigree-perl/Pedigree/Language.pm b/Master/texmf-dist/scripts/pedigree-perl/Pedigree/Language.pm index bcae95d3074..79494d617c9 100644 --- a/Master/texmf-dist/scripts/pedigree-perl/Pedigree/Language.pm +++ b/Master/texmf-dist/scripts/pedigree-perl/Pedigree/Language.pm @@ -31,7 +31,6 @@ This package defines the language-dependent parts of the pedigree library. The idea is to gather everything about language here, so adding a new language should be (presumably) be easy. -=over 4 =cut @@ -53,6 +52,7 @@ use strict; =pod +=over 4 =item B<new>(I<$language>[, I<$encoding>]); diff --git a/Master/texmf-dist/scripts/pedigree-perl/Pedigree/MarriageNode.pm b/Master/texmf-dist/scripts/pedigree-perl/Pedigree/MarriageNode.pm index 39e20bf58f9..9061fd949a9 100644 --- a/Master/texmf-dist/scripts/pedigree-perl/Pedigree/MarriageNode.pm +++ b/Master/texmf-dist/scripts/pedigree-perl/Pedigree/MarriageNode.pm @@ -30,7 +30,6 @@ $node->DrawConnections(); This package contains data about a marriage. -=over 4 =cut @@ -52,6 +51,8 @@ our @ISA=('Pedigree::Node'); =pod +=over 4 + =item B<new>(I<%params>); Construct a new node from the given parameters. diff --git a/Master/texmf-dist/scripts/pedigree-perl/Pedigree/Node.pm b/Master/texmf-dist/scripts/pedigree-perl/Pedigree/Node.pm index 445f92abafb..bf4b2a61cc5 100644 --- a/Master/texmf-dist/scripts/pedigree-perl/Pedigree/Node.pm +++ b/Master/texmf-dist/scripts/pedigree-perl/Pedigree/Node.pm @@ -77,8 +77,6 @@ This is the basic package that defines nodes for pedigrees. Pedigree::PersonNode(3) and Pedigree::MarriageNode(3) inherit from this package. -=over 4 - =cut #################################################################### @@ -133,6 +131,9 @@ our @twin_sets; =pod +=over 4 + + =item B<new>(I<%params>); Construct a new node from the given parameters. If a node with diff --git a/Master/texmf-dist/scripts/pedigree-perl/Pedigree/Parser.pm b/Master/texmf-dist/scripts/pedigree-perl/Pedigree/Parser.pm index 7978064f473..53814777e12 100644 --- a/Master/texmf-dist/scripts/pedigree-perl/Pedigree/Parser.pm +++ b/Master/texmf-dist/scripts/pedigree-perl/Pedigree/Parser.pm @@ -18,7 +18,6 @@ $parser->Parse($inputline); This package parses input for the pedigree library and is used to define nodes. -=over 4 =cut @@ -56,6 +55,8 @@ my %fields_to_convert = ( =pod +=over 4 + =item B<new>(I<$inputline>, I<$lang>); Construct a new parser from the pipe-separated line at input diff --git a/Master/texmf-dist/scripts/pedigree-perl/Pedigree/PersonNode.pm b/Master/texmf-dist/scripts/pedigree-perl/Pedigree/PersonNode.pm index 6d341cb7157..bd98dda06b3 100644 --- a/Master/texmf-dist/scripts/pedigree-perl/Pedigree/PersonNode.pm +++ b/Master/texmf-dist/scripts/pedigree-perl/Pedigree/PersonNode.pm @@ -36,8 +36,6 @@ $node->PrintLegend(I<$land>, I<@fields>); This package contains data about a person. -=over 4 - =cut #################################################################### @@ -55,6 +53,8 @@ our @ISA=('Pedigree::Node'); =pod +=over 4 + =item B<new>(I<%params>); Construct a new node from the given parameters. diff --git a/Master/texmf-dist/scripts/pedigree-perl/Pedigree/TwinsNode.pm b/Master/texmf-dist/scripts/pedigree-perl/Pedigree/TwinsNode.pm index c8557230bd7..85f8454b76b 100644 --- a/Master/texmf-dist/scripts/pedigree-perl/Pedigree/TwinsNode.pm +++ b/Master/texmf-dist/scripts/pedigree-perl/Pedigree/TwinsNode.pm @@ -22,7 +22,6 @@ $node->DrawConnections(); This package contains data about a twins node. Twins node is a special node between the parent and the twins. -=over 4 =cut @@ -44,6 +43,8 @@ our @ISA=('Pedigree::Node'); =pod +=over 4 + =item B<new>(I<%params>); Construct a new node from the given parameters. |