File Coverage

blib/lib/Lingua/YaTeA/MonolexicalPhrase.pm
Criterion Covered Total %
statement 26 30 86.6
branch 2 4 50.0
condition n/a
subroutine 7 7 100.0
pod 2 2 100.0
total 37 43 86.0


line stmt bran cond sub pod time code
1             package Lingua::YaTeA::MonolexicalPhrase;
2 5     5   37 use Lingua::YaTeA::Phrase;
  5         17  
  5         36  
3 5     5   2040 use Lingua::YaTeA::MonolexicalUnit;
  5         12  
  5         60  
4 5     5   136 use strict;
  5         15  
  5         95  
5 5     5   26 use warnings;
  5         12  
  5         108  
6 5     5   24 use NEXT;
  5         12  
  5         18  
7              
8             our @ISA = qw(Lingua::YaTeA::Phrase Lingua::YaTeA::MonolexicalUnit);
9             our $counter = 0;
10             our $parsed = 0;
11             our $VERSION=$Lingua::YaTeA::VERSION;
12              
13             sub new
14             {
15 42     42 1 89 my ($class,$num_content_words,$words_a,$tag_set) = @_;
16 42         77 my $this = shift;
17 42 50       122 $this = bless {}, $this unless ref $this;
18 42         296 $this->NEXT::new(@_);
19 42         126 return $this;
20             }
21              
22             sub print
23             {
24 34     34 1 64 my ($this,$fh) = @_;
25 34 50       69 if(defined $fh)
26             {
27 34         87 print $fh "if: " . $this->getIF . "\n";
28 34         100 print $fh "pos: " . $this->getPOS . "\n";
29 34         90 print $fh "lf: " . $this->getLF . "\n";
30 34         113 print $fh "is a term candidate: " . $this->isTC. "\n";
31             }
32             else
33             {
34 0           print "if: " . $this->getIF . "\n";
35 0           print "pos: " . $this->getPOS . "\n";
36 0           print "lf: " . $this->getLF . "\n";
37 0           print "is a term candidate: " . $this->isTC. "\n";
38             }
39             }
40              
41              
42              
43             1;
44              
45             __END__