File Coverage

blib/lib/Lingua/YaTeA/MonolexicalUnit.pm
Criterion Covered Total %
statement 29 33 87.8
branch 1 4 25.0
condition 0 3 0.0
subroutine 8 9 88.8
pod 2 2 100.0
total 40 51 78.4


line stmt bran cond sub pod time code
1             package Lingua::YaTeA::MonolexicalUnit;
2 5     5   35 use strict;
  5         13  
  5         142  
3 5     5   26 use warnings;
  5         13  
  5         121  
4 5     5   25 use NEXT;
  5         12  
  5         32  
5 5     5   122 use Data::Dumper;
  5         11  
  5         256  
6 5     5   33 use UNIVERSAL;
  5         12  
  5         23  
7 5     5   199 use Scalar::Util qw(blessed);
  5         19  
  5         243  
8 5     5   33 use Lingua::YaTeA::MonolexicalPhrase;
  5         12  
  5         65  
9              
10             our $VERSION=$Lingua::YaTeA::VERSION;
11              
12             sub new
13             {
14 42     42 1 4686 my ($class_or_object,$num_content_words,$words_a) = @_;
15 42         75 my $this = shift;
16 42 50       121 $this = bless {}, $this unless ref $this;
17 42         94 $this->{CONTENT_WORDS} = $num_content_words;
18 42         86 $this->{PARSING_METHOD} = ();
19 42         86 $this->{LENGTH} = scalar @$words_a;
20 42         239 $this->NEXT::new(@_);
21 42         4718 return $this;
22             }
23              
24             sub setParsingMethod
25             {
26 0     0 1   my ($this,$method) = @_;
27 0 0 0       if ((blessed($this)) && ($this->isa('Lingua::YaTeA::Phrase')))
28             {
29 0           $Lingua::YaTeA::MonolexicalPhrase::parsed++;
30             }
31 0           $this->{PARSING_METHOD} = $method;
32             }
33              
34             1;
35              
36              
37             __END__