File Coverage

blib/lib/Lingua/YaTeA/Lexicon.pm

Criterion	Covered	Total	%
statement	34	34	100.0
branch	4	4	100.0
condition			n/a
subroutine	9	9	100.0
pod	6	6	100.0
total	53	53	100.0

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

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

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

sub addItem
{
    my ($this,$item,$key) = @_;
    $this->{ITEMS}->{$key} = $item;
    $Lingua::YaTeA::LexiconItem::counter++;
}




sub addOccurrence
{
    my ($this,$form) = @_;
    my $item = Lingua::YaTeA::LexiconItem->new($form);
    my $key = $this->buildKey($item);
    if (itemExists($this,$key) == 0)
    {
	$this->addItem($item,$key);
    }
    else
    {
	$item = $this->getItem($key);
    }
    $item->incrementFrequency;
    return $item;
}

sub getItem
{
    my ($this,$key) = @_;
    return $this->{ITEMS}->{$key};
}

sub itemExists
{
    my ($this,$key) = @_;
    if (exists $this->{ITEMS}->{$key}){
	return 1;
    }
    return 0;
}

sub buildKey
{
    my ($this,$item) = @_;
    my $key = $item->{IF}.$item->{POS}.$item->{LF};
    return $key;
}

1;

__END__