lib/Text/Tradition/Collation/Relationship.pm

   1 package Text::Tradition::Collation::Relationship;
   2
   3 use Moose;
   4 use Moose::Util::TypeConstraints;
   5
   6 enum 'RelationshipType' => qw( spelling orthographic grammatical );
   7
   8 has 'sort' => (
   9     is => 'rw',
  10     isa => 'RelationshipType',
  11     required => 1,
  12 );
  13
  14 has 'reading' => (
  15     is => 'rw',
  16     isa => 'Text::Tradition::Collation::Reading',
  17     required => 1,
  18 );
  19
  20 has 'global' => (
  21     is => 'rw',
  22     isa => 'Bool',
  23     default => 1,
  24 );
  25
  26  no Moose;
  27   __PACKAGE__->meta->make_immutable;