NAME

Lingua::EN::Segmenter::Evaluator - Evaluate a segmenting method

SYNOPSIS

my $tiling_segmenter = Lingua::EN::Segmenter::TextTiling->new();

foreach (@ARGV) {
    my $input = read_file($_);

    print "\nFile name: $_\n";

    printf "Results from TextTiling algorithm:
  Strict scoring:       %2d%% recall, %2d%% precision
  Relaxed scoring:      %2d%% recall, %2d%% precision
  V. relaxed scoring:   %2d%% recall, %2d%% precision
", calc_stats(evaluate_segmenter($tiling_segmenter,20,$input));
}

DESCRIPTION

See synopsis.

Also check out segmenter.pl in the eg directory.

BUGS

This module only works correctly when the segmenter has a MIN_SEGMENT_SIZE >= 2.

AUTHORS

David James <david@jamesgang.com>

SEE ALSO

Lingua::EN::Segmenter::TextTiling, Lingua::EN::Segmenter::Evaluator