File Coverage

blib/lib/Lingua/YaTeA/PatternLeaf.pm

Criterion	Covered	Total	%
statement	14	18	77.7
branch			n/a
condition			n/a
subroutine	4	6	66.6
pod	3	3	100.0
total	21	27	77.7

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

use Lingua::YaTeA::Edge;

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

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

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


sub getPOS
{
    my ($this) = @_;
    return $this->{POS_TAG};
}

sub print
{
    my ($this) = @_;
    print $this->getPOS;
}


1;

__END__