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

package Lingua::YaTeA::MonolexicalUnit;
use strict;
use warnings;
use NEXT;
use Data::Dumper;
use UNIVERSAL;
use Scalar::Util qw(blessed);
use Lingua::YaTeA::MonolexicalPhrase;

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

sub new
{
    my ($class_or_object,$num_content_words,$words_a) = @_;
    my $this = shift;
    $this = bless {}, $this unless ref $this;
    $this->{CONTENT_WORDS} = $num_content_words;
    $this->{PARSING_METHOD} = ();
    $this->{LENGTH} = scalar @$words_a;
    $this->NEXT::new(@_);
    return $this;
}

sub setParsingMethod
{
    my ($this,$method) = @_;
    if ((blessed($this)) && ($this->isa('Lingua::YaTeA::Phrase')))
    {
	$Lingua::YaTeA::MonolexicalPhrase::parsed++;
    }
    $this->{PARSING_METHOD} = $method;
}

1;


__END__