File Coverage

blib/lib/Lingua/YaTeA/DocumentSet.pm

Criterion	Covered	Total	%
statement	26	34	76.4
branch	0	2	0.0
condition			n/a
subroutine	8	10	80.0
pod	6	6	100.0
total	40	52	76.9

package Lingua::YaTeA::DocumentSet;
use strict;
use warnings;
use Lingua::YaTeA::Document;
use Lingua::YaTeA::WordFromCorpus;

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

sub new
{
    my ($class) = @_;
    my $this = {};
    bless ($this,$class);
    $this->{DOCUMENTS} = [];
    $this->addDefaultDocument;
    return $this;
}


sub getDocuments
{
    my ($this) = @_;
    return $this->{DOCUMENTS};
}

sub addDefaultDocument
{
    my ($this,$word) = @_;
    push @{$this->{DOCUMENTS}}, Lingua::YaTeA::Document->newDefault;
}

sub addDocument
{
    my ($this,$word) = @_;
    if($Lingua::YaTeA::WordFromCorpus::counter==1)
    {
   	$this->getCurrent->update($word);
    }
    else{
	$Lingua::YaTeA::Document::counter++;
	push @{$this->{DOCUMENTS}}, Lingua::YaTeA::Document->new($word);
    }

}


sub getCurrent
{
    my ($this)= @_;
    return $this->{DOCUMENTS}[-1];
}

sub getDocumentNumber
{
    my ($this) = @_;
    return scalar @{$this->{DOCUMENTS}};
}

1;

__END__