Plucene::Analysis::LowerCaseFilter - normalises token text to lower case
# usa Plucene::Analysis::TokenFilter
my $next = $l_case_filter->next;
This normalises token text to lower case.
my $next = $l_case_filter->next;
This will return the next token in the stream, or undef at the end of string.
=cut
sub next {
my $self = shift;
my $t = $self->input->next() or return;
$t->text(lc $t->text);
return $t;
}
1;
|