File Coverage

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

Criterion	Covered	Total	%
statement	9	33	27.2
branch	0	12	0.0
condition			n/a
subroutine	3	8	37.5
pod	0	5	0.0
total	12	58	20.6

package Lingua::Ogmios::Annotations::Lemma;

use strict;
use warnings;

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

#
#
#
#

#
#
#                          refid_word, form?)                >

#
#
#
#                         (#PCDATA)                          >

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

    if (!defined $fields->{'id'}) {
	$fields->{'id'} = -1;
    }
    if (!defined $fields->{'refid_word'}) { # refid_word
	die("refid_word is not defined");
    }
    if (!defined $fields->{'canonical_form'}) { # canonical_form
	die("canonical_form is not defined");
    }
    my $lemma = $class->SUPER::new({
	'id' => $fields->{'id'},
# 	'form' => $fields->{'form'},
				      }
	);
    bless ($lemma,$class);

    $lemma->canonical_form($fields->{'canonical_form'});
    $lemma->refid_word($fields->{'refid_word'});

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

sub refid_word {
    my $self = shift;

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

sub canonical_form {
    my $self = shift;

    $self->{"canonical_form"} = shift if @_;
    return($self->{"canonical_form"});
}

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

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

sub reference {
    my ($self) = @_;

    return([$self->refid_word]);
}

1;

__END__