save and display relationship annotations

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

diff --git a/lib/Text/Tradition/Collation/Relationship.pm b/lib/Text/Tradition/Collation/Relationship.pm
index e08fb3c..06748dc 100644 (file)
--- a/lib/Text/Tradition/Collation/Relationship.pm
+++ b/lib/Text/Tradition/Collation/Relationship.pm
@@ -96,6 +96,7 @@ has 'scope' => (
 has 'annotation' => (
        is => 'ro',
        isa => 'Str',
+       predicate => 'has_annotation',
        );
 
 has 'non_correctable' => (