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

package Text::Tradition::Collation::Relationship;

use Moose;
use Moose::Util::TypeConstraints;

enum 'RelationshipType' => qw( spelling orthographic grammatical );

has 'sort' => (
    is => 'rw',
    isa => 'RelationshipType',
    required => 1,
);

has 'reading' => (
    is => 'rw',
    isa => 'Text::Tradition::Collation::Reading',
    required => 1,
);

has 'global' => (
    is => 'rw',
    isa => 'Bool',
    default => 1,
);

 no Moose;
  __PACKAGE__->meta->make_immutable;
Commit	Line	Data
d047cd52	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;