File Coverage

blib/lib/Lingua/YaTeA/TriggerSet.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch	3	4	75.0
condition			n/a
subroutine	6	6	100.0
pod	4	4	100.0
total	40	41	97.5

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

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

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

sub addTrigger
{
    my ($this,$fs) = @_;
    my $trigger = $fs->getFirstItem;
    push @{$this->getSubset($trigger->getType)->{$trigger->getForm}}, $fs;
}



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

sub findTrigger
{
    my ($this,$word) = @_;
    my @types = ("IF","POS","LF");
    my $type;
    foreach $type (@types)
    {
	if(defined $this->getSubset($type))
	{
	    if(exists $this->getSubset($type)->{$word->getLexItem->{$type}})
	    {
		return $this->getSubset($type)->{$word->getLexItem->{$type}};
	    }
	}
    }
    return;
}


1;
__END__