File Coverage

blib/lib/Lingua/YaTeA/Island.pm

Criterion	Covered	Total	%
statement	41	57	71.9
branch	1	4	25.0
condition			n/a
subroutine	11	13	84.6
pod	10	11	90.9
total	63	85	74.1

package Lingua::YaTeA::Island;
use strict;
use warnings;

our $id = 0;

our $VERSION=$Lingua::YaTeA::VERSION;

sub new
{
    my ($class,$index,$type,$source) = @_;
    my $this = {};
    bless ($this,$class);
    $this->{ID} = $id++;
    $this->{INDEX_SET} = $index;
    $this->{TYPE} = $type;
    $this->{SOURCE} = $source;
    $this->{INTEGRATED} = 0;
    return $this;
}

sub getIndexSet
{
    my ($this) = @_;
    return $this->{INDEX_SET};
}

sub isIntegrated
{
    my ($this) = @_;
    return $this->{INTEGRATED};
}


sub getType
{
    my ($this) = @_;
    return $this->{TYPE};

}

sub getParsingMethod
{
    my ($this) = @_;
    return $this->getSource->getParsingMethod;
}

sub getIF
{
    my ($this) = @_;
    return $this->getSource->getIF;
}

sub getSource
{
    my ($this) = @_;
    return $this->{SOURCE};
}



sub getID
{
    my ($this) = @_;
    return $this->{ID};

}

sub importNodeSets
{
    my ($this) = @_;
    my $node_sets_a;
    my $tree;
    my $node_set;
    $node_sets_a = $this->getSource->exportNodeSets;

    foreach $node_set (@$node_sets_a)
    {
	$node_set->updateLeaves($this->getIndexSet);
    }
    return $node_sets_a;
}

sub gapSize
{
    my ($this) = @_;
    my $i;
    my $gap =0;
    my $index = $this->getIndexSet->getIndexes->[0];
    for ($i=1; $i < scalar @{$this->getIndexSet->getIndexes}; $i++)
    {
	if($this->getIndexSet->getIndexes->[$i] != $index + 1)
	{
#	    return 0;
	    $gap += $this->getIndexSet->getIndexes->[$i] - $index;
	}
	$index = $this->getIndexSet->getIndexes->[$i];
    }
    return $gap;
}


sub print
{
    my ($this,$fh) = @_;

    if(defined $fh)
    {
	print $fh "form: " . $this->getIF;
	print $fh " - indexes: ";
	$this->getIndexSet->print($fh);
	print $fh "- parsing method : " . $this->getParsingMethod;
	print $fh " - type: " . $this->getType . "\n";


    }
    else
    {
	print "form: " . $this->getIF;
	print " - indexes: ";
	$this->getIndexSet->print;
	print " - type: " . $this->getType . "\n";
    }
}


1;


__END__