File Coverage

blib/lib/Text/German/Ausnahme.pm

Criterion	Covered	Total	%
statement	8	8	100.0
branch	4	4	100.0
condition			n/a
subroutine	1	1	100.0
pod	0	1	0.0
total	13	14	92.8

#                              -*- Mode: Perl -*-
# Ausnahme.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:38 2005
# Language        : Perl
# Update Count    : 23
# Status          : Unknown, Use with caution!

package Text::German::Ausnahme;

{
  local ($_);
  while () {
    chomp;
    ($ausnahme, $key) = split;
    $AUSNAHME{$ausnahme} = $key;
  }
  close DATA;
}

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

  $s = $v.$s;
  while (1) {                   # algorithmus unklar
    return $AUSNAHME{$s} if defined $AUSNAHME{$s};
    last unless $e;
    $s .= substr($e,0,1);
    $e = substr($e,1);
  }
  return undef;
}

1;
__DATA__