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


line stmt bran cond sub pod time code
1             package Lingua::StopWords::DE;
2              
3 1     1   7 use strict;
  1         2  
  1         33  
4 1     1   5 use warnings;
  1         1  
  1         24  
5              
6 1     1   5 use utf8;
  1         2  
  1         5  
7              
8 1     1   25 use Encode qw(encode);
  1         1  
  1         40  
9              
10 1     1   5 use Exporter;
  1         2  
  1         351  
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 10 if ( @_ and $_[0] eq 'UTF-8' ) {
19 1         3 my %stoplist = map { ( $_, 1 ) } _stopwords();
  231         452  
20 1         20 return \%stoplist;
21             }
22             else {
23 1         3 my %stoplist = map { ( encode("iso-8859-1", $_), 1 ) } _stopwords();
  231         5821  
24 1         166 return \%stoplist;
25             }
26             }
27              
28             sub _stopwords {
29 2     2   42 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              
55             1;