File Coverage

blib/lib/Lingua/YaTeA/WordOccurrence.pm

Criterion	Covered	Total	%
statement	60	62	96.7
branch	29	34	85.2
condition	11	18	61.1
subroutine	10	10	100.0
pod	5	5	100.0
total	115	129	89.1

package Lingua::YaTeA::WordOccurrence;
use strict;
use warnings;
use Lingua::YaTeA::ChunkingDataSet;
use UNIVERSAL;
use Scalar::Util qw(blessed);

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

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

sub setForm
{
    my ($this,$form) = @_;
    $this->{FORM} = $form;
}

sub getForm
{
    my ($this,$form) = @_;
    return $this->{FORM};
}

sub isChunkEnd
{
    my ($this,$action,$split_after,$sentence_boundary,$document_boundary,$chunking_data) = @_;

    if ((blessed($this)) && ($this->isa("Lingua::YaTeA::WordFromCorpus")))
    {
	if ($Lingua::YaTeA::Corpus::tt_counter != 0){ # word is between testified term frontiers: not end
	    return 0;
	}
	$$split_after--;
	if($$split_after == 0)
	{
	    return 1;
	}
	if ( # word is a sentence or document boundary : end
	    ($this->isSentenceBoundary($sentence_boundary) == 1)
	    ||
	    ($this->isDocumentBoundary($document_boundary) == 1)
	    )
	{
	    return 1;
	}
	# Test if word is a chunking frontier
	if ($this->isChunkingFrontier($chunking_data))
	{
	    if($Lingua::YaTeA::Corpus::tt_counter == 0)
	    {
		return 1;
	    }
	}

    }
    else{
	if ((blessed($this)) && ($this->isa("Lingua::YaTeA::ForbiddenStructureMark")))
	{
	    if ($this->isOpener)
	    {
		$Lingua::YaTeA::Corpus::forbidden_counter ++;
		$$action = $this->getAction;
		if($$action eq "split")
		{

		    $$split_after = $this->getSplitAfter +1;
		}
	    }
	    else{
		if ($this->isCloser)
		{
		    $Lingua::YaTeA::Corpus::forbidden_counter --;
		    if (($Lingua::YaTeA::Corpus::tt_counter == 0) && ($this->getAction ne "split")) {
			# warn "==>1\n";
			return 1;
		    } else {
			return(0);
		    }
		}
		else{
		    die "erreur\n";
		}
	    }
	}
	else
	{
	    if ((blessed($this)) && ($this->isa('Lingua::YaTeA::TestifiedTermMark'))) {
		if ($this->isOpener)
		{
		    $Lingua::YaTeA::Corpus::tt_counter++;
		}
		else
		{
		    if ($this->isCloser)
		    {
			$Lingua::YaTeA::Corpus::tt_counter--;
		    }
		}
		return 0;
	    }
	}
    }

    if( # word is in a forbidden structure but out of testified term frontiers: end
	($Lingua::YaTeA::Corpus::forbidden_counter != 0)
	&&
	($Lingua::YaTeA::Corpus::tt_counter == 0)
	)
    {
	if ($$action eq "delete")
	{
	    return 1;
	}
	else{

	   # $Lingua::YaTeA::Corpus::split_counter--;
	   # if($Lingua::YaTeA::Corpus::split_counter == 0)

	    #return 0;
	}
	return 0;
    }


}

sub print
{
    my ($this,$fh) = @_;
    if(defined $fh)
    {
	print $fh $this->getForm . "\n";
    }
    else
    {
	print $this->getForm . "\n";
    }
}

1;

__END__