X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FText%2FTradition%2FCollation%2FRelationship.pm;h=11594b5731c9b0482f1d93d030bdd261082292b2;hb=c84275ff42c4d3e6f7fbc13140101975c990101a;hp=f53960124a2256b040a3e47ec188d77a992c3e81;hpb=0e47f4f67650eaa804f9e23b3241718d8eb94433;p=scpubgit%2Fstemmatology.git diff --git a/lib/Text/Tradition/Collation/Relationship.pm b/lib/Text/Tradition/Collation/Relationship.pm index f539601..11594b5 100644 --- a/lib/Text/Tradition/Collation/Relationship.pm +++ b/lib/Text/Tradition/Collation/Relationship.pm @@ -4,7 +4,7 @@ use Moose; use Moose::Util::TypeConstraints; enum 'RelationshipType' => qw( spelling orthographic grammatical meaning lexical - collation repetition transposition ); + collated repetition transposition ); enum 'RelationshipScope' => qw( local tradition global ); @@ -51,11 +51,13 @@ has 'scope' => ( has 'non_correctable' => ( is => 'ro', isa => 'Bool', + predicate => 'noncorr_set', ); has 'non_independent' => ( is => 'ro', isa => 'Bool', + predicate => 'nonind_set', ); # A read-only meta-Boolean attribute.