File Coverage

blib/lib/Lingua/StopWords/FR.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::FR;
2              
3 2     2   966 use strict;
  2         4  
  2         62  
4 2     2   10 use warnings;
  2         4  
  2         50  
5              
6 2     2   10 use utf8;
  2         3  
  2         9  
7              
8 2     2   49 use Encode qw(encode);
  2         4  
  2         83  
9              
10 2     2   10 use Exporter;
  2         4  
  2         678  
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 4 100 66 4 0 24 if ( @_ and $_[0] eq 'UTF-8' ) {
19 1         3 my %stoplist = map { ( $_, 1 ) } _stopwords();
  155         283  
20 1         14 return \%stoplist;
21             }
22             else {
23 3         10 my %stoplist = map { ( encode("iso-8859-1", $_), 1 ) } _stopwords();
  465         11720  
24 3         338 return \%stoplist;
25             }
26             }
27              
28             sub _stopwords {
29 4     4   68 return qw(
30             au aux avec ce ces dans de des du elle en et eux il je la le
31             leur lui ma mais me même mes moi mon ne nos notre nous on ou
32             par pas pour qu que qui sa se ses son sur ta te tes toi ton tu
33             un une vos votre vous c d j l à m n s t y été étée étées étés
34             étant étante étants étantes suis es est sommes êtes sont serai
35             seras sera serons serez seront serais serait serions seriez
36             seraient étais était étions étiez étaient fus fut fûmes fûtes
37             furent sois soit soyons soyez soient fusse fusses fût fussions
38             fussiez fussent ayant ayante ayantes ayants eu eue eues eus ai
39             as avons avez ont aurai auras aura aurons aurez auront aurais
40             aurait aurions auriez auraient avais avait avions aviez avaient
41             eut eûmes eûtes eurent aie aies ait ayons ayez aient eusse
42             eusses eût eussions eussiez eussent
43             );
44             }
45              
46             1;