File Coverage

blib/lib/Lingua/YaTeA/InternalNode.pm

Criterion	Covered	Total	%
statement	38	41	92.6
branch	7	8	87.5
condition	6	9	66.6
subroutine	11	12	91.6
pod	6	6	100.0
total	68	76	89.4

package Lingua::YaTeA::InternalNode;
use strict;
use warnings;
use Lingua::YaTeA::Node;
use Lingua::YaTeA::Edge;
use UNIVERSAL;
use Scalar::Util qw(blessed);

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

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

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

sub setFather
{
    my ($this,$father) = @_;
    $this->{FATHER} = $father;
}

sub getFather
{
    my ($this) = @_;
    return $this->{FATHER};
}

sub updateLevel
{
    my ($this,$new_level) = @_;
    $this->{LEVEL} = $new_level++;

#     warn "Debug: Level in updateLevel: $new_level \n";

    if ($new_level < 50) { # Temporary added by Thierry Hamon 02/02/2007
	if ((blessed($this->getLeftEdge)) && ($this->getLeftEdge->isa('Lingua::YaTeA::InternalNode')))
	{
	    $this->getLeftEdge->updateLevel($new_level);
	}
	if ((blessed($this->getRightEdge)) && ($this->getRightEdge->isa('Lingua::YaTeA::InternalNode')))
	{
	    $this->getRightEdge->updateLevel($new_level);
	}
    } else {
	warn "updateLevel: Going out a deep recursive method call (more than 50 calls)\n";
    }
}

sub searchRoot
{
    my ($this) = @_;
    if ((blessed($this->getFather)) && ($this->getFather->isa('Lingua::YaTeA::RootNode')))
    {
	return $this->getFather;
    }

    return $this->getFather->searchRoot;
}




sub printFather
{
    my ($this,$fh) = @_;
    print $fh "\t\tfather: " . $this->getFather->getID . "\n";
}

1;

__END__