File Coverage

blib/lib/Lingua/YaTeA/LexiconItem.pm

Criterion	Covered	Total	%
statement	49	56	87.5
branch	6	10	60.0
condition			n/a
subroutine	13	15	86.6
pod	13	13	100.0
total	81	94	86.1

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

our $counter =0;

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

sub new
{
    my ($class,$form) = @_;
    my $this = {};
    bless ($this,$class);
    $this->{ID} = $counter;
    my @lex_infos = split /\t/, $form;
    $this->{IF} = $lex_infos[0];
    $this->{POS} = $lex_infos[1];
    $this->{LF} = $this->setLF($lex_infos[2],$this->{IF});
    $this->{LENGTH} = $this->setLength;
    $this->{FREQUENCY} = 0;
    return $this;
}


sub setLF
{
    my ($this,$LF,$IF) = @_;
    if (defined $LF) {
	if ($LF =~ /(\)|(\@card@)/){ # si le lemme est inconnu du tagger (TTG) : lemme = forme flechie
	    return $IF;
	}
    } else {
	$LF = "";
    }
    return $LF;
}

sub setLength
{
    my ($this) = @_;
    return length($this->{IF});
}

sub incrementFrequency
{
    my ($this) = @_;
    $this->{FREQUENCY}++;
}

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

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

sub getPOS
{
    my ($this) = @_;
    return $this->{POS};
}

sub getLF
{
    my ($this) = @_;
    return $this->{LF};
}

sub getLength
{
    my ($this) = @_;
    return $this->{LENGTH};
}

sub getFrequency
{
    my ($this) = @_;
    return $this->{FREQUENCY};
}

sub getAny
{
    my ($this,$field) = @_;
    return $this->{$field};
}

sub isCleaningFrontier
{
    my ($this,$chunking_data) = @_;
    my @types = ("POS",  "LF", "IF");
    my $type;
    foreach $type (@types)
    {
	if ($chunking_data->existData("CleaningFrontiers",$type,$this->getAny($type)) == 1)
	{
	    if (! $this->isCleaningException($chunking_data))
	    {
		return 1;
	    }
	}
    }
    return 0;
}

sub isCleaningException
{
    my ($this,$chunking_data) = @_;
    my @types = ("POS",  "LF", "IF");
    my $type;
    foreach $type (@types)
    {
	if ($chunking_data->existData("CleaningExceptions",$type,$this->getAny($type)) == 1)
	{
	    return 1;
	}
    }
    return 0;
}

1;

__END__