make the first couple of tests pass

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

diff --git a/lib/Text/Tradition/Witness.pm b/lib/Text/Tradition/Witness.pm
index 90db6ca..1eccbb0 100644 (file)
--- a/lib/Text/Tradition/Witness.pm
+++ b/lib/Text/Tradition/Witness.pm
@@ -21,6 +21,7 @@ has 'text' => (
 has 'source' => (
     is => 'ro',
     isa => 'Str',
+    predicate => 'has_source',
     );
 
 sub BUILD {