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         8  
  3         88  
3 3     3   16 use warnings;
  3         7  
  3         606  
4              
5             our $VERSION=$Lingua::YaTeA::VERSION;
6              
7             sub new
8             {
9 3     3 1 10 my ($class) = @_;
10 3         8 my $this = {};
11 3         14 bless ($this,$class);
12 3         25 $this->{SENTENCES} = [];
13 3         13 return $this;
14             }
15              
16             sub addSentence
17             {
18 20     20 1 46 my ($this,$documents) = @_;
19 20         33 push @{$this->{SENTENCES}}, Lingua::YaTeA::Sentence->new($documents);
  20         85  
20             }
21              
22             sub getCurrent
23             {
24 598     598 1 953 my ($this)= @_;
25 598         1256 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__