File Coverage

blib/lib/Text/German/Adjektiv.pm

Criterion	Covered	Total	%
statement	10	11	90.9
branch	3	4	75.0
condition			n/a
subroutine	2	2	100.0
pod	0	1	0.0
total	15	18	83.3

#                              -*- Mode: Perl -*-
# Adjektiv.pm --
# Author          : Ulrich Pfeifer
# Created On      : Thu Feb  1 09:10:48 1996
# Last Modified By: Ulrich Pfeifer
# Last Modified On: Sun Apr  3 11:42:22 2005
# Language        : Perl
# Update Count    : 22
# Status          : Unknown, Use with caution!

package Text::German::Adjektiv;
use Text::German::Util;

{
  local ($_);
  while () {
    chomp;
    ($adjektiv, $key) = split;
    $ADJEKTIV{$adjektiv} = [split ':', $key];
  }
  close DATA;
}

sub reduce {
  my($v,$s,$e) = @_;


  #return undef unless $v.$s.$e =~ /$UMLAUTR/o;
  while (1) {                   # algorithmus unklar
    if (defined $ADJECTIV{$s}) {
      return ($v, $ADJECTIV{$s}->[0], $e);
    }
    $s .= substr($e,0,1);
    last unless $e;
    $e  = substr($e,1);
  }
  return undef;
}

1;
__DATA__