1package Lingua::StopWords::FI;
2
3use strict;
4use warnings;
5
6use utf8;
7
8use Encode qw(encode);
9
10use Exporter;
11our @ISA = qw(Exporter);
12
13our %EXPORT_TAGS = ( 'all' => [ qw( getStopWords ) ] );
14our @EXPORT_OK   = ( @{ $EXPORT_TAGS{'all'} } );
15our $VERSION     = 0.12;
16
17sub getStopWords {
18    if ( @_ and $_[0] eq 'UTF-8' ) {
19        my %stoplist = map { ( $_, 1 ) } _stopwords();
20        return \%stoplist;
21    }
22    else {
23        my %stoplist = map { ( encode("iso-8859-1", $_), 1 ) } _stopwords();
24        return \%stoplist;
25    }
26}
27
28sub _stopwords {
29    return qw(
30            olla olen olet on olemme olette ovat ole oli olisi olisit
31            olisin olisimme olisitte olisivat olit olin olimme olitte
32            olivat ollut olleet en et ei emme ette eivät minä minun minut
33            minua minussa minusta minuun minulla minulta minulle sinä sinun
34            sinut sinua sinussa sinusta sinuun sinulla sinulta sinulle hän
35            hänen hänet häntä hänessä hänestä häneen hänellä häneltä
36            hänelle me meidän meidät meitä meissä meistä meihin meillä
37            meiltä meille te teidän teidät teitä teissä teistä teihin
38            teillä teiltä teille he heidän heidät heitä heissä heistä
39            heihin heillä heiltä heille tämä tämän tätä tässä tästä tähän
40            tallä tältä tälle tänä täksi tuo tuon tuotä tuossa tuosta
41            tuohon tuolla tuolta tuolle tuona tuoksi se sen sitä siinä
42            siitä siihen sillä siltä sille sinä siksi nämä näiden näitä
43            näissä näistä näihin näillä näiltä näille näinä näiksi nuo
44            noiden noita noissa noista noihin noilla noilta noille noina
45            noiksi ne niiden niitä niissä niistä niihin niillä niiltä
46            niille niinä niiksi kuka kenen kenet ketä kenessä kenestä
47            keneen kenellä keneltä kenelle kenenä keneksi ketkä keiden
48            ketkä keitä keissä keistä keihin keillä keiltä keille keinä
49            keiksi mikä minkä minkä mitä missä mistä mihin millä miltä
50            mille minä miksi mitkä joka jonka jota jossa josta johon jolla
51            jolta jolle jona joksi jotka joiden joita joissa joista joihin
52            joilla joilta joille joina joiksi että ja jos koska kuin mutta
53            niin sekä sillä tai vaan vai vaikka kanssa mukaan noin poikki
54            yli kun niin nyt itse
55    );
56}
57
581;
59