remove need for collation object from stemma

diff --git a/lib/Text/Tradition/Analysis.pm b/lib/Text/Tradition/Analysis.pm
index d9612d7..e1a69cd 100644 (file)
--- a/lib/Text/Tradition/Analysis.pm
+++ b/lib/Text/Tradition/Analysis.pm
@@ -492,7 +492,7 @@ sub _graph_for_grouping {
        try {
                # contig contains all extant wits and all hypothetical wits
                # needed to make up the groups.
-               $graph = $stemma->situation_graph( $extant, $acwits );
+               $graph = $stemma->situation_graph( $extant, $acwits, $aclabel );
        } catch ( Text::Tradition::Error $e ) {
                throw( "Could not extend graph with given extant and a.c. witnesses: "
                        . $e->message );

diff --git a/lib/Text/Tradition/Stemma.pm b/lib/Text/Tradition/Stemma.pm
index f530af0..085e6b0 100644 (file)
--- a/lib/Text/Tradition/Stemma.pm
+++ b/lib/Text/Tradition/Stemma.pm
@@ -86,27 +86,21 @@ if called directly it takes the following options:
 
 =over
 
-=item * collation - The collation with which the stemma is associated.
-
 =item * dot - A filehandle open to a DOT representation of the stemma graph.
 
 =back
 
 =begin testing
 
-use Text::Tradition::Collation;
 use TryCatch;
 
 use_ok( 'Text::Tradition::Stemma' );
 
-# Placeholder collation to use in tests
-my $c = Text::Tradition::Collation->new();
-
 # Try to create a bad graph
 my $baddotfh;
 open( $baddotfh, 't/data/besoin_bad.dot' ) or die "Could not open test dotfile";
 try {
-       my $stemma = Text::Tradition::Stemma->new( collation => $c, dot => $baddotfh );
+       my $stemma = Text::Tradition::Stemma->new( dot => $baddotfh );
        ok( 0, "Created broken stemma from dotfile with syntax error" );
 } catch( Text::Tradition::Error $e ) {
        like( $e->message, qr/^Error trying to parse/, "Syntax error in dot threw exception" );
@@ -116,7 +110,7 @@ try {
 my $dotfh;
 open( $dotfh, 't/data/florilegium.dot' ) or die "Could not open test dotfile";
 binmode( $dotfh, ':utf8' );
-my $stemma = Text::Tradition::Stemma->new( collation => $c, dot => $dotfh );
+my $stemma = Text::Tradition::Stemma->new( dot => $dotfh );
 is( ref( $stemma ), 'Text::Tradition::Stemma', "Created stemma from good dotfile" );
 is( scalar $stemma->witnesses, 13, "Found correct number of extant witnesses" );
 is( scalar $stemma->hypotheticals, 8, "Found correct number of extant hypotheticals" );
@@ -133,7 +127,7 @@ ok( $found_unicode_sigil, "Found a correctly encoded Unicode sigil" );
 has collation => (
     is => 'ro',
     isa => 'Text::Tradition::Collation',
-    required => 1,
+    clearer => 'clear_collation',
     weak_ref => 1,
     );  
 
@@ -360,7 +354,7 @@ children with that version.
 =cut
 
 sub situation_graph {
-       my( $self, $extant, $layerwits ) = @_;
+       my( $self, $extant, $layerwits, $layerlabel ) = @_;
        
        my $graph = $self->graph->copy;
        foreach my $vertex ( $graph->vertices ) {
@@ -376,13 +370,13 @@ sub situation_graph {
        # as an ancestor of the 'main' witness, and otherwise with the same parent/
        # child links as its main analogue.
        # TOOD Handle case where B is copied from A but corrected from C
-       my $aclabel = $self->collation->ac_label;
+       $layerlabel = ' (a.c.)' unless $layerlabel;
        foreach my $lw ( @$layerwits ) {
                # Add the layered witness and set it with the same attributes as
                # its 'main' analogue
                throw( "Cannot add a layer to a hypothetical witness $lw" )
                        unless $graph->get_vertex_attribute( $lw, 'class' ) eq 'extant';
-               my $lwac = $lw . $aclabel;
+               my $lwac = $lw . $layerlabel;
                $graph->add_vertex( $lwac );
                $graph->set_vertex_attributes( $lwac,
                        $graph->get_vertex_attributes( $lw ) );
@@ -396,14 +390,14 @@ sub situation_graph {
                foreach my $v ( $graph->predecessors( $lw ) ) {
                        next if $v eq $lwac; # Don't add a loop
                        $graph->add_edge( $v, $lwac );
-                       $graph->add_edge( $v.$aclabel, $lwac )
-                               if $graph->has_vertex( $v.$aclabel );
+                       $graph->add_edge( $v.$layerlabel, $lwac )
+                               if $graph->has_vertex( $v.$layerlabel );
                }
                foreach my $v ( $graph->successors( $lw ) ) {
                        next if $v eq $lwac; # but this shouldn't occur
                        $graph->add_edge( $lwac, $v );
-                       $graph->add_edge( $lwac, $v.$aclabel )
-                               if $graph->has_vertex( $v.$aclabel );
+                       $graph->add_edge( $lwac, $v.$layerlabel )
+                               if $graph->has_vertex( $v.$layerlabel );
                }
        }
        return $graph;

diff --git a/t/text_tradition_stemma.t b/t/text_tradition_stemma.t
index 27d70a0..63b834c 100644 (file)
--- a/t/text_tradition_stemma.t
+++ b/t/text_tradition_stemma.t
@@ -8,19 +8,15 @@ $| = 1;
 
 # =begin testing
 {
-use Text::Tradition::Collation;
 use TryCatch;
 
 use_ok( 'Text::Tradition::Stemma' );
 
-# Placeholder collation to use in tests
-my $c = Text::Tradition::Collation->new();
-
 # Try to create a bad graph
 my $baddotfh;
 open( $baddotfh, 't/data/besoin_bad.dot' ) or die "Could not open test dotfile";
 try {
-       my $stemma = Text::Tradition::Stemma->new( collation => $c, dot => $baddotfh );
+       my $stemma = Text::Tradition::Stemma->new( dot => $baddotfh );
        ok( 0, "Created broken stemma from dotfile with syntax error" );
 } catch( Text::Tradition::Error $e ) {
        like( $e->message, qr/^Error trying to parse/, "Syntax error in dot threw exception" );
@@ -30,7 +26,7 @@ try {
 my $dotfh;
 open( $dotfh, 't/data/florilegium.dot' ) or die "Could not open test dotfile";
 binmode( $dotfh, ':utf8' );
-my $stemma = Text::Tradition::Stemma->new( collation => $c, dot => $dotfh );
+my $stemma = Text::Tradition::Stemma->new( dot => $dotfh );
 is( ref( $stemma ), 'Text::Tradition::Stemma', "Created stemma from good dotfile" );
 is( scalar $stemma->witnesses, 13, "Found correct number of extant witnesses" );
 is( scalar $stemma->hypotheticals, 8, "Found correct number of extant hypotheticals" );