/[stem-hr]/StemHR.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /StemHR.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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;

Legend:
Removed from v.15  
changed lines
  Added in v.16

  ViewVC Help
Powered by ViewVC 1.1.26