File Coverage

blib/lib/Lingua/YaTeA/MonolexicalTestifiedTerm.pm

Criterion	Covered	Total	%
statement	9	19	47.3
branch			n/a
condition			n/a
subroutine	3	6	50.0
pod	3	3	100.0
total	15	28	53.5

package Lingua::YaTeA::MonolexicalTestifiedTerm;
use strict;
use warnings;
use Lingua::YaTeA::TestifiedTerm;

our @ISA = qw(Lingua::YaTeA::TestifiedTerm);

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

sub new
{
    my ($class,$num_content_words,$words_a,$tag_set,$source,$match_type) = @_;
    my $this = $class->SUPER::new($num_content_words,$words_a,$tag_set,$source,$match_type);
    bless ($this,$class);

    return $this;
}

sub getHeadAndLinks
{
    my ($this,$LGPmapping_h) = @_;
    my $head = $this->getWord(0);
    my @links;
    return ($head,0,\@links);
}

sub getLength
{
    my ($this) = @_;
    return 1;
}


1;

__END__