refine the analysis code; add alters_meaning attribute to relationships

[scpubgit/stemmatology.git] / lib / Text / Tradition / Stemma.pm

diff --git a/lib/Text/Tradition/Stemma.pm b/lib/Text/Tradition/Stemma.pm
index ec17145..e7e3946 100644 (file)
--- a/lib/Text/Tradition/Stemma.pm
+++ b/lib/Text/Tradition/Stemma.pm
@@ -296,7 +296,7 @@ sub extend_graph {
        
        # Iterate through, adding a.c. witnesses
        my $actag = $self->collation->ac_label;
-       my $graph = $self->graph->copy;
+       my $graph = $self->graph->deep_copy;
        foreach my $lw ( @$layerwits ) {
                # Add the layered witness and set it with the same attributes as
                # its 'main' analogue
@@ -368,6 +368,12 @@ sub witnesses {
     return @wits;
 }
 
+=head2 hypotheticals
+
+Returns a list of the hypothetical witnesses represented in the stemma.
+
+=cut
+
 sub hypotheticals {
     my $self = shift;
     my @wits = grep