File Coverage

blib/lib/Plucene/Analysis/SimpleAnalyzer.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 20 20 100.0


line stmt bran cond sub pod time code
1             package Plucene::Analysis::SimpleAnalyzer;
2              
3             =head1 NAME
4              
5             Plucene::Analysis::SimpleAnalyzer - The simple analyzer
6              
7             =head1 SYNOPSIS
8              
9             # isa Plucene::Analysis::Analyzer
10              
11             my Plucene::Analysis::LowerCaseTokenizer $an
12             = Plucene::Analysis::SimpleAnalyzer->new(@args);
13              
14             =head1 DESCRIPTION
15              
16             This is an Analyzer that filters LetterTokenizer with LowerCaseFilter.
17              
18             =head1 METHODS
19              
20             =cut
21              
22 19     19   5745 use strict;
  19         109  
  19         707  
23 19     19   108 use warnings;
  19         49  
  19         699  
24              
25 19     19   101 use base 'Plucene::Analysis::Analyzer';
  19         38  
  19         10302  
26              
27 19     19   9933 use Plucene::Analysis::LowerCaseTokenizer;
  19         62  
  19         259  
28              
29             =head2 tokenstream
30              
31             my Plucene::Analysis::LowerCaseTokenizer $an
32             = Plucene::Analysis::SimpleAnalyzer->new(@args);
33              
34             This creates a TokenStream which tokenizes all the text in the provided
35             Reader.
36              
37             =cut
38              
39             sub tokenstream {
40 359     359 1 8213 my $self = shift;
41 359         2893 return Plucene::Analysis::LowerCaseTokenizer->new(@_);
42             }
43              
44             1;