File Coverage

blib/lib/Lingua/Ogmios/Annotations/MorphosyntacticFeatures.pm

Criterion	Covered	Total	%
statement	9	81	11.1
branch	0	40	0.0
condition	0	3	0.0
subroutine	3	18	16.6
pod	0	15	0.0
total	12	157	7.6

package Lingua::Ogmios::Annotations::MorphosyntacticFeatures;

use strict;
use warnings;

use Lingua::Ogmios::Annotations::Element;
our @ISA = qw(Lingua::Ogmios::Annotations::Element);

#
#
#

#
#                         (log_id?, comments*,
#                          morphosyntactic_features+)        >

#
#
#                         (id, log_id?, (refid_word |
#                          refid_phrase), syntactic_category,
#                          category?, type?, gender?, number?,
#                          case?, mood_vform?, tense?,
#                          person?, degree?, possessor?,
#                          formation?, form?)                >

#
#
#
# 			(#PCDATA)			   >

#
#
#
# 			(#PCDATA)                          >

#
#
#
# 			(#PCDATA)                          >

#
#
#

#
#
#

#
#
#

#
#
#

#
#
#

#
#
#

#
#
#

#
#

#
#
#
#
#                         (#PCDATA)                          >

sub new {
    my ($class, $fields) = @_;

    if (!defined $fields->{'id'}) {
	$fields->{'id'} = -1;
    }

    if (!defined $fields->{'syntactic_category'}) { # syntactic_category
	die("syntactic_category is not defined");
    }

    my $morphosyntacticfeatures = $class->SUPER::new({
	'id' => $fields->{'id'},
# 	'form' => $fields->{'form'},
				      }
	);
    bless ($morphosyntacticfeatures, $class);


    $morphosyntacticfeatures->syntactic_category($fields->{'syntactic_category'});

    my $i = 0;
    my $reference_name;
    my $ref;
    foreach $ref ('refid_phrase', 'refid_word') {
	if (defined $fields->{$ref}) {
	    $reference_name = $ref;
	    last;
	}
	$i++;
    }
    if ($i == 2) {
	die("reference (list) is not defined");
    }

    $morphosyntacticfeatures->reference($reference_name, $fields->{$reference_name});

    my $field;
    foreach $field ('type', 'gender', 'number', 'case', 'mood_vfrom', 'tense', 'person', 'degree', 'possessor', 'formation') {
	if (defined $fields->{$field}) {
	    $morphosyntacticfeatures->_setField($fields->{$field});
	}
    }

    if (defined $fields->{'form'}) {
	$morphosyntacticfeatures->setForm($fields->{'form'});
    }

    if (defined $fields->{'log_id'}) {
	$morphosyntacticfeatures->setLogId($fields->{'log_id'});
    }
    return($morphosyntacticfeatures);
}

sub type {
    my $self = shift;

    $self->{'type'} = shift if @_;
    return($self->{'type'});
}

sub category {
    my $self = shift;

    $self->{'category'} = shift if @_;
    return($self->{'category'});
}

sub syntactic_category {
    my $self = shift;

    $self->{'syntactic_category'} = shift if @_;
    return($self->{'syntactic_category'});
}

sub gender {
    my $self = shift;

    $self->{'gender'} = shift if @_;
    return($self->{'gender'});
}

sub number {
    my $self = shift;

    $self->{'number'} = shift if @_;
    return($self->{'number'});
}

sub case {
    my $self = shift;

    $self->{'case'} = shift if @_;
    return($self->{'case'});
}

sub mood_vform {
    my $self = shift;

    $self->{'mood_vform'} = shift if @_;
    return($self->{'mood_vform'});
}

sub tense {
    my $self = shift;

    $self->{'tense'} = shift if @_;
    return($self->{'tense'});
}

sub person {
    my $self = shift;

    $self->{'person'} = shift if @_;
    return($self->{'person'});
}

sub degree {
    my $self = shift;

    $self->{'degree'} = shift if @_;
    return($self->{'degree'});
}

sub possessor {
    my $self = shift;

    $self->{'possessor'} = shift if @_;
    return($self->{'possessor'});
}

sub formation {
    my $self = shift;

    $self->{'formation'} = shift if @_;
    return($self->{'formation'});
}

sub reference {
    my $self = shift;
    my $ref;
    my $elt;

    if ((@_) && (scalar @_ == 2)) {
	$self->{'reference'} = shift;
#	$self->{$self->{'reference'}} = [];
	$ref = shift;
	$self->{$self->{'reference'}} = $ref;
# 	foreach $elt (@$ref) {
# 	    push @{$self->{$self->{'reference'}}}, $elt;
# 	}
    }
    return($self->{$self->{'reference'}});
}


sub XMLout {
    my ($self, $order) = @_;

    return($self->SUPER::XMLout("morphosyntactic_features", $order));
}

1;

__END__