File Coverage

blib/lib/Lingua/StopWords/RU.pm
Criterion Covered Total %
statement 23 23 100.0
branch 2 2 100.0
condition 2 3 66.6
subroutine 7 7 100.0
pod 0 1 0.0
total 34 36 94.4


line stmt bran cond sub pod time code
1             package Lingua::StopWords::RU;
2              
3 1     1   8 use strict;
  1         2  
  1         33  
4 1     1   5 use warnings;
  1         2  
  1         25  
5              
6 1     1   4 use utf8;
  1         2  
  1         5  
7              
8 1     1   24 use Encode qw(encode);
  1         2  
  1         40  
9              
10 1     1   6 use Exporter;
  1         2  
  1         312  
11             our @ISA = qw(Exporter);
12              
13             our %EXPORT_TAGS = ( 'all' => [ qw( getStopWords ) ] );
14             our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
15             our $VERSION = 0.11;
16              
17             sub getStopWords {
18 2 100 66 2 0 12 if ( @_ and $_[0] eq 'UTF-8' ) {
19 1         3 my %stoplist = map { ( $_, 1 ) } _stopwords();
  159         284  
20 1         14 return \%stoplist;
21             }
22             else {
23 1         4 my %stoplist = map { ( encode("KOI8-R", $_), 1 ) } _stopwords();
  159         4330  
24 1         150 return \%stoplist;
25             }
26             }
27              
28             sub _stopwords {
29 2     2   30 return qw(
30             и в во не что он на я с со как а то все она так его но да ты к
31             у же вы за бы по только ее мне было вот от меня еще нет о из
32             ему теперь когда даже ну вдруг ли если уже или ни быть был него
33             до вас нибудь опять уж вам сказал ведь там потом себя ничего ей
34             может они тут где есть надо ней для мы тебя их чем была сам
35             чтоб без будто человек чего раз тоже себе под жизнь будет ж
36             тогда кто этот говорил того потому этого какой совсем ним здесь
37             этом один почти мой тем чтобы нее кажется сейчас были куда
38             зачем сказать всех никогда сегодня можно при наконец два об
39             другой хоть после над больше тот через эти нас про всего них
40             какая много разве сказала три эту моя впрочем хорошо свою этой
41             перед иногда лучше чуть том нельзя такой им более всегда
42             конечно всю между
43             );
44             }
45              
46             1;