File Coverage

blib/lib/Lingua/YaTeA/TermLeaf.pm

Criterion	Covered	Total	%
statement	30	43	69.7
branch	0	4	0.0
condition			n/a
subroutine	12	16	75.0
pod	13	13	100.0
total	55	76	72.3

package Lingua::YaTeA::TermLeaf;
use Lingua::YaTeA::Edge;
use strict;
use warnings;

our @ISA = qw(Lingua::YaTeA::Edge);
our $VERSION=$Lingua::YaTeA::VERSION;

sub new
{
    my ($class,$index) = @_;
    my $this = $class->SUPER::new;
    $this->{INDEX} = $index;
    bless ($this,$class);
    return $this;
}


sub getIF
{
    my ($this,$words_a) = @_;
    return $words_a->[$this->getIndex]->getIF;
}



sub getPOS
{
    my ($this,$words_a) = @_;
    return $words_a->[$this->getIndex]->getPOS;
}

sub getLF
{
    my ($this,$words_a) = @_;
    return $words_a->[$this->getIndex]->getLF;
}

sub getID
{
    my ($this,$words_a) = @_;
    return $words_a->[$this->getIndex]->getID;
}


sub getIndex
{
    my ($this) = @_;
    return $this->{INDEX};
}

sub getLength
{
    my ($this,$words_a) = @_;
    return $words_a->[$this->getIndex]->getLength;
}

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

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


sub print
{
    my ($this,$words_a,$fh) = @_;
    if(!defined $fh)
    {
	$fh = \*STDERR
    }
    if(defined $words_a)
    {
	 $this->printWords($words_a,$fh) ;
	 print  $fh " (" . $this->getIndex. ")";
    }
    else
    {
	print $fh $this->getIndex;
    }
}

sub printWords
{
    my ($this,$words_a,$fh) = @_;
#     if(!defined $fh)
#     {
# 	$fh = \*STDERR
#     }
    print $fh $this->getIF($words_a);
}

sub searchRightMostLeaf
{
    my ($this,$depth_r) = @_;
    return $this;
}

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

1;

__END__