predicate => 'has_rank',
);
+## For prefix/suffix readings
+
+has 'join_prior' => (
+ is => 'ro',
+ isa => 'Bool',
+ default => undef,
+ );
+
+has 'join_next' => (
+ is => 'ro',
+ isa => 'Bool',
+ default => undef,
+ );
+
around BUILDARGS => sub {
my $orig = shift;
return $self->id;
}
+sub TO_JSON {
+ my $self = shift;
+ return $self->text;
+}
+
no Moose;
__PACKAGE__->meta->make_immutable;