File Coverage

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

Criterion	Covered	Total	%
statement	9	61	14.7
branch	0	12	0.0
condition	0	9	0.0
subroutine	3	11	27.2
pod	0	8	0.0
total	12	101	11.8

package Lingua::Ogmios::Annotations::SemanticFeatures;

use strict;
use warnings;

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


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

#
#
#                         (id, log_id?, semantic_category,
#                          refid_semantic_unit)              >

#

#
#                         (list_refid_ontology_node)+        >

#
#
#                         (refid_ontology_node)+             >

#
#
#                         (#PCDATA)                          >

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

    if (!defined $fields->{'id'}) {
	$fields->{'id'} = -1;
    }
    if ((!defined $fields->{'semantic_category'}) ||
	(ref($fields->{'semantic_category'} ne "ARRAY")) ||
	(ref($fields->{'semantic_category'}->[0] ne "ARRAY"))) { # semantic_category
	die("semantic_category is not defined");
    }
    if (!defined $fields->{'refid_semantic_unit'}) { # refid_semantic_unit
	die("refid_semantic_unit is not defined");
    }

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

    $semanticfeatures->refid_semantic_unit($fields->{'refid_semantic_unit'});
    $semanticfeatures->semantic_category('list_refid_ontology_node', $fields->{'semantic_category'});

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

sub semantic_category {
    my $self = shift;
    my $ref;
    my $elt;
    my $node;
    my $position;
    my $internal_field;

    if ((@_) && (scalar @_ == 2)) {
	$self->{'semantic_category'} = {};
	$self->{'semantic_category'}->{'reference'} = shift;
# 	warn "reference: " . $self->{'semantic_category'}->{'reference'} . "\n";
	$self->{'semantic_category'}->{$self->{'semantic_category'}->{'reference'}} = [];

#  	$position = index($self->{'semantic_category'}->{'reference'}, "list_");
#  	if ($position == 0) {
#  	    $internal_field = substr($self->{'semantic_category'}->{'reference'}, $position + 5);
#  	} else {
#  	    $internal_field = shift;
#  	}
	$ref = shift;
	foreach $elt (@$ref) {
	    my @tmp;
	    foreach $node (@$elt) {
		push @tmp, $node;
# 		warn "node: $node (" . join(":", @tmp) . ")\n";
	    }
	    push @{$self->{'semantic_category'}->{$self->{'semantic_category'}->{'reference'}}}, \@tmp;
	}
# 	foreach $elt (@$ref) {
# 	    foreach $node (@$elt) {
# 		push @{$self->{$self->{'reference'}}}, $node;
# 	    }
# 	}

    }
    return($self->{'semantic_category'}->{$self->{'semantic_category'}->{'reference'}});
}

sub first_node_first_semantic_category {
    my $self = shift;

    return($self->{'semantic_category'}->{$self->{'semantic_category'}->{'reference'}}->[0]->[0]);
}

sub refid_semantic_unit {
    my $self = shift;

    if (@_) {
	# my $old_refid = $self->{'refid_semantic_unit'};
	$self->{'refid_semantic_unit'} = shift;
	# if (defined $old_refid) {

	# }
    }
    return($self->{'refid_semantic_unit'});
}

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

    return($self->refid_semantic_unit);
}

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

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

sub toString {
    my $self = shift;

    my $semf;
    my $semfString = "";


    # foreach $semf (@{$self->{'semantic_category'}->{$self->{'semantic_category'}->{'reference'}}}) {
    foreach $semf (@{$self->semantic_category}) {
	$semfString .= join('/', @$semf) . ":";
    }
    chop $semfString;
    return($semfString);
}

sub semantic_categorySize {
    my $self = shift;

    return(scalar(@{$self->semantic_category}))
}


1;


__END__