File Coverage

blib/lib/Lingua/StopWords/DE.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

package Lingua::StopWords::DE;

use strict;
use warnings;

use utf8;

use Encode qw(encode);

use Exporter;
our @ISA = qw(Exporter);

our %EXPORT_TAGS = ( 'all' => [ qw( getStopWords ) ] );
our @EXPORT_OK   = ( @{ $EXPORT_TAGS{'all'} } );
our $VERSION     = 0.10;

sub getStopWords {
    if ( @_ and $_[0] eq 'UTF-8' ) {
        my %stoplist = map { ( $_, 1 ) } _stopwords();
        return \%stoplist;
    }
    else {
        my %stoplist = map { ( encode("iso-8859-1", $_), 1 ) } _stopwords();
        return \%stoplist;
    }
}

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

1;