package Text::Tradition::Collation::Reading::WordForm;
+use Lingua::Features::Structure;
+use JSON ();
use Moose;
=head1 NAME
required => 1,
);
+around BUILDARGS => sub {
+ my $orig = shift;
+ my $class = shift;
+ my $args = @_ == 1 ? $_[0] : { @_ };
+ if( exists $args->{'JSON'} ) {
+ my $data = $args->{'JSON'};
+ my $morph = Lingua::Features::Structure->from_string( $data->{'morphology'} );
+ $data->{'morphology'} = $morph;
+ $args = $data;
+ }
+ $class->$orig( $args );
+};
+
=head2 to_string
Returns a string combination of language/lemma/morphology that can be used
sub to_string {
my $self = shift;
- return join( '++', $self->language, $self->lemma, $self->morphology->to_string );
+ return JSON->new->convert_blessed(1)->encode( $self );
+}
+
+sub TO_JSON {
+ my $self = shift;
+ return {
+ 'language' => $self->language,
+ 'lemma' => $self->lemma,
+ 'morphology' => $self->morphology->to_string
+ };
}
no Moose;