Initial code for adding traditions to users

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

diff --git a/lib/Text/Tradition.pm b/lib/Text/Tradition.pm
index 62b50f4..ef50df6 100644 (file)
--- a/lib/Text/Tradition.pm
+++ b/lib/Text/Tradition.pm
@@ -53,6 +53,13 @@ has 'stemmata' => (
        },
        default => sub { [] },
        );
+
+has 'user' => (
+    is => 'rw',
+    isa => 'Text::Tradition::User',
+    required => 0,
+    predicate => 'has_user',
+    );
   
 # Create the witness before trying to add it
 around 'add_witness' => sub {