File Coverage

blib/lib/Lingua/StopWords/ID.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::ID;
2              
3 1     1   7 use strict;
  1         3  
  1         32  
4 1     1   6 use warnings;
  1         2  
  1         27  
5              
6 1     1   5 use utf8;
  1         3  
  1         6  
7              
8 1     1   26 use Encode qw(encode);
  1         2  
  1         44  
9              
10 1     1   6 use Exporter;
  1         2  
  1         284  
11             our @ISA = qw(Exporter);
12              
13             our %EXPORT_TAGS = ( 'all' => [ qw( getStopWords ) ] );
14             our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
15             our $VERSION = 0.12;
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();
  93         167  
20 1         11 return \%stoplist;
21             }
22             else {
23 1         3 my %stoplist = map { ( encode("iso-8859-1", $_), 1 ) } _stopwords();
  93         2332  
24 1         61 return \%stoplist;
25             }
26             }
27              
28             sub _stopwords {
29 2     2   20 return qw(
30             yang dan di dari ini pada kepada ada adalah dengan untuk dalam oleh
31             sebagai juga ke atau tidak itu sebuah tersebut dapat ia telah satu
32             memiliki mereka bahwa lebih karena seorang akan seperti secara kemudian
33             beberapa banyak antara setelah yaitu hanya hingga serta sama dia tetapi
34             namun melalui bisa sehingga ketika suatu sendiri bagi semua harus setiap
35             maka maupun tanpa saja jika bukan belum sedangkan yakni meskipun hampir
36             kita demikian daripada apa ialah sana begitu seseorang selain terlalu
37             ataupun saya bila bagaimana tapi apabila kalau kami melainkan boleh aku
38             anda kamu beliau kalian
39             );
40             }
41              
42             1;