File Coverage

blib/lib/Lingua/YaTeA/MonolexicalTestifiedTerm.pm
Criterion Covered Total %
statement 9 19 47.3
branch n/a
condition n/a
subroutine 3 6 50.0
pod 3 3 100.0
total 15 28 53.5


line stmt bran cond sub pod time code
1             package Lingua::YaTeA::MonolexicalTestifiedTerm;
2 5     5   44 use strict;
  5         12  
  5         149  
3 5     5   26 use warnings;
  5         13  
  5         126  
4 5     5   29 use Lingua::YaTeA::TestifiedTerm;
  5         10  
  5         33  
5              
6             our @ISA = qw(Lingua::YaTeA::TestifiedTerm);
7              
8             our $VERSION=$Lingua::YaTeA::VERSION;
9              
10             sub new
11             {
12 0     0 1   my ($class,$num_content_words,$words_a,$tag_set,$source,$match_type) = @_;
13 0           my $this = $class->SUPER::new($num_content_words,$words_a,$tag_set,$source,$match_type);
14 0           bless ($this,$class);
15            
16 0           return $this;
17             }
18              
19             sub getHeadAndLinks
20             {
21 0     0 1   my ($this,$LGPmapping_h) = @_;
22 0           my $head = $this->getWord(0);
23 0           my @links;
24 0           return ($head,0,\@links);
25             }
26              
27             sub getLength
28             {
29 0     0 1   my ($this) = @_;
30 0           return 1;
31             }
32              
33              
34             1;
35              
36             __END__