1package Lingua::StopWords::DE;
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            aber alle allem allen aller alles als also am an ander andere
31            anderem anderen anderer anderes anderm andern anderr anders
32            auch auf aus bei bin bis bist da damit dann der den des dem die
33            das daß derselbe derselben denselben desselben demselben
34            dieselbe dieselben dasselbe dazu dein deine deinem deinen
35            deiner deines denn derer dessen dich dir du dies diese diesem
36            diesen dieser dieses doch dort durch ein eine einem einen einer
37            eines einig einige einigem einigen einiger einiges einmal er
38            ihn ihm es etwas euer eure eurem euren eurer eures für gegen
39            gewesen hab habe haben hat hatte hatten hier hin hinter ich
40            mich mir ihr ihre ihrem ihren ihrer ihres euch im in indem ins
41            ist jede jedem jeden jeder jedes jene jenem jenen jener jenes
42            jetzt kann kein keine keinem keinen keiner keines können könnte
43            machen man manche manchem manchen mancher manches mein meine
44            meinem meinen meiner meines mit muss musste nach nicht nichts
45            noch nun nur ob oder ohne sehr sein seine seinem seinen seiner
46            seines selbst sich sie ihnen sind so solche solchem solchen
47            solcher solches soll sollte sondern sonst über um und uns unse
48            unsem unsen unser unses unter viel vom von vor während war
49            waren warst was weg weil weiter welche welchem welchen welcher
50            welches wenn werde werden wie wieder will wir wird wirst wo
51            wollen wollte würde würden zu zum zur zwar zwischen
52    );
53}
54
551;
56