Parent Directory | Revision Log | Patch
revision 15 by dpavlin, Thu Jun 28 10:34:39 2007 UTC | revision 16 by dpavlin, Thu Jun 28 10:38:34 2007 UTC | |
---|---|---|
# | Line 1 | Line 1 |
1 | package StemHr; | package StemHR; |
2 | ||
3 | # | # |
4 | # Croatian stemmer | # Croatian stemmer |
# | Line 49 my $g_5r = '[nm]'; | Line 49 my $g_5r = '[nm]'; |
49 | my $g_6r = '(:?nu|n)'; | my $g_6r = '(:?nu|n)'; |
50 | ||
51 | sub stem { | sub stem { |
52 | my $self = shift; | |
53 | die "call with StemHR->stem('word') $self" unless $self eq 'StemHR'; | |
54 | ||
55 | my $w = shift || return; | my $w = shift || return; |
56 | ||
# | Line 107 sub stem { | Line 109 sub stem { |
109 | return $w; | return $w; |
110 | } | } |
111 | ||
112 | 1; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |