NAME

Language::Guess

ABSTRACT

A statistical language guesser

SYNOPSIS

        use Langauge::Guess;
        
        my $guesser = Language::Guess->new( modeldir => '~/train' );
        
        while (my $line = <> ) {
                my $lang = $guesser->simple_guess($line);
                print "Language was $lang\n\n";
        }

COPYRIGHT

(c) 2004 National Institute for Technology and Liberal Education

LICENSE

This software is released under version 2.0 of the GNU Public License

AUTHOR

Maciej Ceglowski <maciej@ceglowski.com>