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

  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.

# Baseline random segmenter
package Lingua::EN::Segmenter::Baseline;

$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;