• NAME
• SYNOPSIS
• DESCRIPTION
• EXTENDING
• AUTHORS
• SEE ALSO
• LICENSE

NAME

Lingua::EN::Segmenter::Baseline - Segment text randomly for baseline purposes

SYNOPSIS

See the Lingua::EN::Segmenter::TextTiling manpage

DESCRIPTION

See the Lingua::EN::Segmenter::TextTiling manpage

EXTENDING

See the Lingua::EN::Segmenter::TextTiling manpage

AUTHORS

David James <splice@cpan.org>

SEE ALSO

the Lingua::EN::Segmenter::TextTiling manpage, the Lingua::EN::Segmenter::Evaluator manpage, http://www.cs.toronto.edu/~james

LICENSE

  Copyright (c) 2002 David James
  All rights reserved.
  This program is free software; you can redistribute it and/or
  modify it under the same terms as Perl itself.

=cut

$VERSION = 0.10; use base 'Lingua::EN::Segmenter::TextTiling'; use strict;

# Return random depth scores sub smoothed_depth_scores { my ($self,$input) = @_; my $words = $self->{splitter}->words($input); my $tiles = $self->{splitter}->tile($words); my $num_scores = @$tiles - 2*$self->{TILES_PER_BLOCK}; [ map { rand() } 0..$num_scores ] }

1;