File Coverage

blib/lib/Lingua/YaTeA/ForbiddenStructure.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod	2	3	66.6
total	24	25	96.0

package Lingua::YaTeA::ForbiddenStructure;
use strict;
use warnings;

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

sub new
{
    my ($class,$form) = @_;
    my $this = {};
    bless ($this,$class);
    $this->{FORM} = $form;
    $this->{LENGTH} = $this->setLength($form);
    return $this;
}

sub setLength
{
    my ($this,$form) = @_;
    my @words = split (/ /,$form);
    return scalar @words;
}

sub getLength
{
    my ($this) = @_;
    return $this->{LENGTH};
}
1;

__END__