File Coverage

blib/lib/Lingua/YaTeA/Edge.pm

Criterion	Covered	Total	%
statement	22	30	73.3
branch	3	8	37.5
condition	3	12	25.0
subroutine	6	8	75.0
pod	4	4	100.0
total	38	62	61.2

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

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


sub new
{
    my ($class) = @_;
    my $this = {};
    bless ($this,$class);
    #$this->{FATHER} = $father;
    #$this->{POSITION} = "";
    return $this;
}


sub copyRecursively
{
    my ($this,$new_set,$father) = @_;
    my $new;
    if ((blessed($this)) && ($this->isa('Lingua::YaTeA::TermLeaf')))
    {
	return "";
    }
    else{
	if ((blessed($this)) && ($this->isa('Lingua::YaTeA::InternalNode')))
	{
	    return $this->copyRecursively($new_set,$father);
	}
	else{
	    if ((blessed($this)) && ($this->isa('Lingua::YaTeA::PatternLeaf')))
	    {
		return "";
	    }
	}
    }
}

sub update
{
    my ($this,$new_value) = @_;
    $this = $new_value;
}



sub print
{
    my ($this,$words_a,$fh) = @_;
    if ((blessed($this)) && ($this->isa("Lingua::YaTeA::Node")))
    {
	 print $fh "Node " . $this->getID;
    }
    else{
	$this->printWords($words_a,$fh);
    }
}

1;

__END__