better analysis with more information

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

diff --git a/lib/Text/Tradition/Stemma.pm b/lib/Text/Tradition/Stemma.pm
index 3969c6d..186a576 100644 (file)
--- a/lib/Text/Tradition/Stemma.pm
+++ b/lib/Text/Tradition/Stemma.pm
@@ -286,6 +286,14 @@ sub witnesses {
     return @wits;
 }
 
+sub hypotheticals {
+    my $self = shift;
+    my @wits = grep 
+       { $self->graph->get_vertex_attribute( $_, 'class' ) eq 'hypothetical' }
+        $self->graph->vertices;
+    return @wits;
+}
+
 sub throw {
        Text::Tradition::Error->throw( 
                'ident' => 'Stemma error',