File Coverage

blib/lib/Lingua/StopWords/ES.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::ES;
2              
3 1     1   7 use strict;
  1         1  
  1         32  
4 1     1   6 use warnings;
  1         1  
  1         25  
5              
6 1     1   5 use utf8;
  1         1  
  1         5  
7              
8 1     1   25 use Encode qw(encode);
  1         2  
  1         40  
9              
10 1     1   5 use Exporter;
  1         2  
  1         403  
11             our @ISA = qw(Exporter);
12              
13             our %EXPORT_TAGS = ( 'all' => [ qw( getStopWords ) ] );
14             our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
15             our $VERSION = 0.11;
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();
  308         602  
20 1         25 return \%stoplist;
21             }
22             else {
23 1         3 my %stoplist = map { ( encode("iso-8859-1", $_), 1 ) } _stopwords();
  308         7709  
24 1         248 return \%stoplist;
25             }
26             }
27              
28             sub _stopwords {
29 2     2   54 return qw(
30             de la que el en y a los del se las por un para con no una su al
31             lo como más pero sus le ya o este sí porque esta entre cuando
32             muy sin sobre también me hasta hay donde quien desde todo nos
33             durante todos uno les ni contra otros ese eso ante ellos e esto
34             mí antes algunos qué unos yo otro otras otra él tanto esa estos
35             mucho quienes nada muchos cual poco ella estar estas algunas
36             algo nosotros mi mis tú te ti tu tus ellas nosotras vosotros
37             vosotras os mío mía míos mías tuyo tuya tuyos tuyas suyo suya
38             suyos suyas nuestro nuestra nuestros nuestras vuestro vuestra
39             vuestros vuestras esos esas estoy estás está estamos estáis
40             están esté estés estemos estéis estén estaré estarás estará
41             estaremos estaréis estarán estaría estarías estaríamos
42             estaríais estarían estaba estabas estábamos estabais estaban
43             estuve estuviste estuvo estuvimos estuvisteis estuvieron
44             estuviera estuvieras estuviéramos estuvierais estuvieran
45             estuviese estuvieses estuviésemos estuvieseis estuviesen
46             estando estado estada estados estadas estad he has ha hemos
47             habéis han haya hayas hayamos hayáis hayan habré habrás habrá
48             habremos habréis habrán habría habrías habríamos habríais
49             habrían había habías habíamos habíais habían hube hubiste hubo
50             hubimos hubisteis hubieron hubiera hubieras hubiéramos
51             hubierais hubieran hubiese hubieses hubiésemos hubieseis
52             hubiesen habiendo habido habida habidos habidas soy eres es
53             somos sois son sea seas seamos seáis sean seré serás será
54             seremos seréis serán sería serías seríamos seríais serían era
55             eras éramos erais eran fui fuiste fue fuimos fuisteis fueron
56             fuera fueras fuéramos fuerais fueran fuese fueses fuésemos
57             fueseis fuesen siendo sido tengo tienes tiene tenemos tenéis
58             tienen tenga tengas tengamos tengáis tengan tendré tendrás
59             tendrá tendremos tendréis tendrán tendría tendrías tendríamos
60             tendríais tendrían tenía tenías teníamos teníais tenían tuve
61             tuviste tuvo tuvimos tuvisteis tuvieron tuviera tuvieras
62             tuviéramos tuvierais tuvieran tuviese tuvieses tuviésemos
63             tuvieseis tuviesen teniendo tenido tenida tenidos tenidas tened
64             );
65             }
66              
67             1;