File Coverage

blib/lib/Lingua/YaTeA/IslandSet.pm

Criterion	Covered	Total	%
statement	39	50	78.0
branch	5	6	83.3
condition			n/a
subroutine	9	11	81.8
pod	9	9	100.0
total	62	76	81.5

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

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

sub new
{
    my ($class) = @_;
    my $this = {};
    bless ($this,$class);
    $this->{ISLANDS} = {};
    return $this;
}

sub getIslands
{
    my ($this) = @_;
    return $this->{ISLANDS};
}

sub existIsland
{
    my ($this,$index_set) = @_;
    my $key = $index_set->joinAll('-');
    if(exists $this->getIslands->{$key})
    {
	return 1;
    }
    return 0;
}

sub getIsland
{
    my ($this,$index_set) = @_;
    my $key = $index_set->joinAll('-');
    return $this->getIslands->{$key};
}

sub existLargerIsland
{
    my ($this,$index) = @_;
    my $key = $index->joinAll('-');
    my $island;
    foreach $island (values (%{$this->getIslands}))
    {
	if($index->isCoveredBy($island->getIndexSet))
	{
	    return 1;
	}
    }
    return 0;
}

sub addIsland
{
    my ($this,$island,$fh) = @_;
    my $key = $island->getIndexSet->joinAll('-');
  #  print $fh " key: ". $key . "  - ";
    $this->getIslands->{$key} = $island;
  #  print $fh "\tilot ajoute";
}

sub removeIsland
{
    my ($this,$island,$fh) = @_;
    my $key = $island->getIndexSet->joinAll('-');
    delete($this->getIslands->{$key});
#    print $fh "remove";
    $island = undef;
}


sub size
{
    my ($this) = @_;
    return scalar (keys %{$this->getIslands});
}

sub print
{
    my ($this,$fh) = @_;
    my $island;
    if(defined $fh)
    {
	foreach $island (values (%{$this->getIslands}))
	{
	print $fh "\t";
	$island->print($fh);
	}
    }
    else
    {
	foreach $island (values (%{$this->getIslands}))
	{
	print "\t";
	$island->print;
	}
    }
}


1;

__END__