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


line stmt bran cond sub pod time code
1             package Lingua::YaTeA::PatternLeaf;
2 5     5   51 use strict;
  5         11  
  5         143  
3 5     5   27 use warnings;
  5         9  
  5         122  
4              
5 5     5   30 use Lingua::YaTeA::Edge;
  5         12  
  5         28  
6              
7             our @ISA = qw(Lingua::YaTeA::Edge);
8              
9             our $VERSION=$Lingua::YaTeA::VERSION;
10              
11             sub new
12             {
13 580     580 1 1281 my ($class,$tag,$father) = @_;
14 580         1524 my $this = $class->SUPER::new($father);
15 580         954 bless ($this,$class);
16 580         1315 $this->{POS_TAG} = $tag;
17 580         1140 return $this;
18             }
19              
20              
21             sub getPOS
22             {
23 0     0 1   my ($this) = @_;
24 0           return $this->{POS_TAG};
25             }
26              
27             sub print
28             {
29 0     0 1   my ($this) = @_;
30 0           print $this->getPOS;
31             }
32              
33              
34             1;
35              
36             __END__