generate svg with relationships invisible; fix graphml output

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

diff --git a/lib/Text/Tradition.pm b/lib/Text/Tradition.pm
index c2deeae..60a9396 100644 (file)
--- a/lib/Text/Tradition.pm
+++ b/lib/Text/Tradition.pm
@@ -22,6 +22,12 @@ has 'witnesses' => (
     default => sub { [] },
     );
 
+has 'name' => (
+    is => 'rw',
+    isa => 'Str',
+    default => 'Tradition',
+    );
+
 sub BUILD {
     my( $self, $init_args ) = @_;