File Coverage

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

Criterion	Covered	Total	%
statement	9	44	20.4
branch	0	16	0.0
condition			n/a
subroutine	3	8	37.5
pod	0	5	0.0
total	12	73	16.4

package Lingua::Ogmios::Annotations::AnaphoraRelation;

use strict;
use warnings;

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

#
#
#
#
#                         (log_id?, comments*,
#                          anaphora_relation+)               >
#
#
#                         (id, log_id?,
#                          anaphora_relation_type,
#                          anaphora, antecedent)             >

#
#
#                         (refid_semantic_unit)              >


#
#
#                         (#PCDATA)                          >

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

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

    $anaphorarelation->anaphora_relation_type($fields->{'domain_specific_relation_type'});

#    $anaphorarelation->list_refid_semantic_unit($fields->{'list_refid_semantic_unit'});

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

sub anaphora {
    my $self = shift;

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

}

sub list_refid_semantic_unit {
    my $self = shift;

    my $ref;
    my $elt;

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

}

sub anaphora_relation_type {
    my $self = shift;

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

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

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


1;

__END__