summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/scripts/pedigree-perl/Pedigree
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/scripts/pedigree-perl/Pedigree')
-rw-r--r--Master/texmf-dist/scripts/pedigree-perl/Pedigree/AbortionNode.pm3
-rw-r--r--Master/texmf-dist/scripts/pedigree-perl/Pedigree/Area.pm3
-rw-r--r--Master/texmf-dist/scripts/pedigree-perl/Pedigree/ChildlessNode.pm5
-rw-r--r--Master/texmf-dist/scripts/pedigree-perl/Pedigree/Language.pm2
-rw-r--r--Master/texmf-dist/scripts/pedigree-perl/Pedigree/MarriageNode.pm3
-rw-r--r--Master/texmf-dist/scripts/pedigree-perl/Pedigree/Node.pm5
-rw-r--r--Master/texmf-dist/scripts/pedigree-perl/Pedigree/Parser.pm3
-rw-r--r--Master/texmf-dist/scripts/pedigree-perl/Pedigree/PersonNode.pm4
-rw-r--r--Master/texmf-dist/scripts/pedigree-perl/Pedigree/TwinsNode.pm3
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.