File Coverage

blib/lib/Text/German/Vorsilbe.pm

Criterion	Covered	Total	%
statement	7	14	50.0
branch	3	6	50.0
condition	1	3	33.3
subroutine	1	2	50.0
pod	0	2	0.0
total	12	27	44.4

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

package Text::German::Vorsilbe;
# require Exporter;
# @ISA = qw(Exporter);
# @EXPORT = qw(%VORSILBE);

{
  local ($_);
  while () {
    chomp;
    ($vorsilbe, $key) = split;
    $VORSILBE{$vorsilbe} = pack 'b*', $key;
  }
  close DATA;
}

sub vorsilben {
  my $word = shift;
  my @result;

  for $i (1 .. length($word)) {
    my $vorsilbe = substr($word,0,$i);
    if (defined $VORSILBE{$vorsilbe}) {
      push @result, $vorsilbe;
    }
  }
  @result;
}

sub max_vorsilbe {
  my $word  = shift;
  my $result = undef;

  for $i (1 .. length($word)) {
    my $vorsilbe = substr($word,0,$i);
    if (defined $VORSILBE{$vorsilbe}) {
      $result = $vorsilbe
        if !defined($result) || length($vorsilbe) > length($result);
    }
  }
  $result;
}

1;
# un ?

__DATA__