File Coverage

blib/lib/Lingua/YaTeA/TermCandidate.pm

Criterion	Covered	Total	%
statement	108	135	80.0
branch	6	8	75.0
condition			n/a
subroutine	26	35	74.2
pod	29	33	87.8
total	169	211	80.0

package Lingua::YaTeA::TermCandidate;
use strict;
use warnings;
# use UNIVERSAL;
# use Scalar::Util qw(blessed);

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

sub new
{
    my ($class) = @_;
    my $this;
    $this->{ID} = $id++;
    $this->{KEY} = "";
    $this->{HEAD} = ();
    $this->{WORDS} = [];
    $this->{OCCURRENCES} = [];
    $this->{RELIABILITY} = ();
    $this->{TERM_STATUS} = 1;
    $this->{ORIGINAL_PHRASE} = ();
#     $this->{WEIGHT} = 0;
    $this->{WEIGHTS} = {};
    $this->{ROOT} = ();
    $this->{MNP_STATUS} = 0;  # added by SA 13/02/2009
    bless ($this,$class);
    return $this;
}

sub setROOT {
    my ($this, $ROOT) = @_;
    push @{$this->{ROOT}}, $ROOT;
    return($this->{ROOT});
}

sub getROOT {
    my ($this) = @_;
    return($this->{ROOT});
}

sub setTermStatus {
    my ($this, $status) = @_;
    $this->{TERM_STATUS} = $status;
    return($this->{TERM_STATUS});
}

sub getTermStatus {
    my ($this) = @_;
    return($this->{TERM_STATUS});
}

sub isTerm {
    my ($this) = @_;

    return($this->getTermStatus != 0);
}

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

sub addWord
{
    my ($this,$leaf,$words_a) = @_;
    push @{$this->{WORDS}}, $words_a->[$leaf->getIndex];
}

sub addOccurrence
{
    my ($this,$occurrence) = @_;
    if($occurrence->isMaximal)
    {
	$this->{MNP_STATUS} = 1;  # added by SA 13/02/2009:: if at least one occurrence is a MNP, TC is a MNP
    }
    push @{$this->{OCCURRENCES}}, $occurrence;
}

sub addOccurrences
{
    my ($this,$occurrences_a) = @_;
    my $occurrence;
    foreach $occurrence (@$occurrences_a)
    {
	$this->addOccurrence($occurrence);
    }
}

sub getKey
{
    my ($this) = @_;
    return $this->{KEY};
}

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

sub getMNPStatus
{
    my ($this) = @_;
    return $this->{MNP_STATUS};
}

sub editKey
{
    my ($this,$string) = @_;
    $this->{KEY} .= $string;
}

sub setHead
{
    my ($this) = @_;
    $this->{HEAD} = $this->searchHead(0);
}

sub getHead
{
    my ($this) = @_;
    return $this->{HEAD};
}

sub setWeight
{
    my $this = shift;
    my $weight;
    my $weight_name;
    if (scalar(@_) == 2) {
	$weight_name = shift;
    } else {
	# default weight because it's the first
	$weight_name = "DDW";
    }
    $weight = shift;
    $this->getWeights->{$weight_name} = $weight;

#     $this->{WEIGHT} = $weight;
}

sub getWeight
{
    my $this = shift;

    my $weight_name;
    if (@_) {
	$weight_name = shift;
    } else {
	# default wieght because it's the first
	$weight_name = "DDW";
    }
    return($this->getWeights->{$weight_name});

#     return $this->{WEIGHT};
}

sub setWeights
{
    my ($this,$weight) = @_;
    $this->{WEIGHTS} = $weight;
}

sub getWeights
{
    my ($this) = @_;
    return($this->{WEIGHTS});
}

sub getWeightNames
{
    my ($this) = @_;
    return(keys %{$this->{WEIGHTS}});
}

sub getWords
{
    my ($this) = @_;
    return $this->{WORDS};
}

sub getWord
{
    my ($this,$index) = @_;
    return $this->getWords->[$index];
}

sub getOccurrences
{
    my ($this) = @_;
    return $this->{OCCURRENCES};
}

sub getOccurrencesNumber
{
    my ($this) = @_;
    return scalar @{$this->getOccurrences};
}

sub buildLinguisticInfos
{
    my ($this,$tagset) = @_;
    my $if;
    my $pos;
    my $lf;
    my $word;

    foreach $word (@{$this->getWords})
    {
	$if .= $word->getIF . " " ;
	if ($tagset->existTag('PREPOSITIONS',$word->getIF))
	{
	    $pos .= $word->getLF . " ";
	}
	else
	{
	    $pos .= $word->getPOS . " ";
	}
	$lf .= $word->getLF . " " ;
    }
    $if =~ s/\s+$//;
    $pos =~ s/\s+$//;
    $lf =~ s/\s+$//;
    return ($if,$pos,$lf);

}

sub getIF
{
    my ($this) = @_;
    my $word;
    my $if;
    foreach $word (@{$this->getWords})
    {
	$if .= $word->getIF . " " ;
    }
    $if =~ s/\s+$//;
    return $if;
}

sub getLF
{
    my ($this) = @_;
    my $word;
    my $lf;
    foreach $word (@{$this->getWords})
    {
	$lf .= $word->getLF . " " ;
    }
    $lf =~ s/\s+$//;
    return $lf;
}

sub getPOS
{
    my ($this) = @_;
    my $word;
    my $pos;
    foreach $word (@{$this->getWords})
    {
	$pos .= $word->getPOS . " " ;
    }
    $pos =~ s/\s+$//;
    return $pos;
}

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

sub setReliability
{
    my ($this,$reliability) = @_;
    $this->{RELIABILITY} = $reliability;
}

sub getReliability
{
    my ($this) = @_;
    return $this->{RELIABILITY};
}

sub getOriginalPhrase
{
    my ($this) = @_;
    return $this->{ORIGINAL_PHRASE};
}



1;

__END__