File Coverage

blib/lib/Lingua/YaTeA/LinguisticItem.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	2	2	100.0
condition			n/a
subroutine	6	6	100.0
pod	4	4	100.0
total	32	32	100.0

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

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

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

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

sub getType
{
    my ($this) = @_;
    return $this->{TYPE};
}

sub matchesWord
{
    my ($this,$word) = @_;
    if($this->getForm eq $word->getLexItem->getAny($this->getType))
    {
	return 1;
    }
    return 0;
}
1;

__END__