File Coverage

blib/lib/Lingua/YaTeA/SentenceSet.pm
Criterion Covered Total %
statement 16 18 88.8
branch n/a
condition n/a
subroutine 5 6 83.3
pod 4 4 100.0
total 25 28 89.2


line stmt bran cond sub pod time code
1             package Lingua::YaTeA::SentenceSet;
2 3     3   22 use strict;
  3         6  
  3         101  
3 3     3   24 use warnings;
  3         6  
  3         610  
4              
5             our $VERSION=$Lingua::YaTeA::VERSION;
6              
7             sub new
8             {
9 3     3 1 11 my ($class) = @_;
10 3         9 my $this = {};
11 3         7 bless ($this,$class);
12 3         16 $this->{SENTENCES} = [];
13 3         9 return $this;
14             }
15              
16             sub addSentence
17             {
18 20     20 1 47 my ($this,$documents) = @_;
19 20         42 push @{$this->{SENTENCES}}, Lingua::YaTeA::Sentence->new($documents);
  20         81  
20             }
21              
22             sub getCurrent
23             {
24 598     598 1 1029 my ($this)= @_;
25 598         1315 return $this->{SENTENCES}[-1];
26             }
27              
28             sub getSentences
29             {
30 0     0 1   my ($this)= @_;
31 0           return $this->{SENTENCES};
32             }
33             1;
34              
35             __END__