line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package KinoSearch1::Analysis::LCNormalizer; |
2
|
27
|
|
|
27
|
|
28199
|
use strict; |
|
27
|
|
|
|
|
62
|
|
|
27
|
|
|
|
|
878
|
|
3
|
27
|
|
|
27
|
|
143
|
use warnings; |
|
27
|
|
|
|
|
58
|
|
|
27
|
|
|
|
|
716
|
|
4
|
27
|
|
|
27
|
|
739
|
use KinoSearch1::Util::ToolSet; |
|
27
|
|
|
|
|
61
|
|
|
27
|
|
|
|
|
3995
|
|
5
|
27
|
|
|
27
|
|
157
|
use base qw( KinoSearch1::Analysis::Analyzer ); |
|
27
|
|
|
|
|
59
|
|
|
27
|
|
|
|
|
2548
|
|
6
|
27
|
|
|
27
|
|
986
|
use locale; |
|
27
|
|
|
|
|
258
|
|
|
27
|
|
|
|
|
191
|
|
7
|
|
|
|
|
|
|
|
8
|
27
|
|
|
27
|
|
1103
|
BEGIN { __PACKAGE__->init_instance_vars(); } |
9
|
|
|
|
|
|
|
|
10
|
|
|
|
|
|
|
sub analyze { |
11
|
11080
|
|
|
11080
|
1
|
14357
|
my ( $self, $batch ) = @_; |
12
|
|
|
|
|
|
|
|
13
|
|
|
|
|
|
|
# lc all of the terms, one by one |
14
|
11080
|
|
|
|
|
35519
|
while ( $batch->next ) { |
15
|
11033
|
|
|
|
|
78111
|
$batch->set_text( lc( $batch->get_text ) ); |
16
|
|
|
|
|
|
|
} |
17
|
|
|
|
|
|
|
|
18
|
11080
|
|
|
|
|
21934
|
$batch->reset; |
19
|
11080
|
|
|
|
|
48805
|
return $batch; |
20
|
|
|
|
|
|
|
} |
21
|
|
|
|
|
|
|
|
22
|
|
|
|
|
|
|
1; |
23
|
|
|
|
|
|
|
|
24
|
|
|
|
|
|
|
__END__ |