File Coverage

blib/lib/LucyX/Index/LongFieldSim.pm
Criterion Covered Total %
statement 12 12 100.0
branch 1 2 50.0
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 18 19 94.7


line stmt bran cond sub pod time code
1             # Licensed to the Apache Software Foundation (ASF) under one or more
2             # contributor license agreements. See the NOTICE file distributed with
3             # this work for additional information regarding copyright ownership.
4             # The ASF licenses this file to You under the Apache License, Version 2.0
5             # (the "License"); you may not use this file except in compliance with
6             # the License. You may obtain a copy of the License at
7             #
8             # http://www.apache.org/licenses/LICENSE-2.0
9             #
10             # Unless required by applicable law or agreed to in writing, software
11             # distributed under the License is distributed on an "AS IS" BASIS,
12             # WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
13             # See the License for the specific language governing permissions and
14             # limitations under the License.
15              
16 2     2   1156 use strict;
  2         3  
  2         50  
17 2     2   6 use warnings;
  2         1  
  2         75  
18              
19             package LucyX::Index::LongFieldSim;
20 2     2   6 use base qw( Lucy::Index::Similarity );
  2         2  
  2         672  
21             our $VERSION = '0.006000_001';
22             $VERSION = eval $VERSION;
23              
24             sub length_norm {
25 2     2 1 95 my ( $self, $num_tokens ) = @_;
26 2 50       5 $num_tokens = $num_tokens < 100 ? 100 : $num_tokens;
27 2         26 return 1 / sqrt($num_tokens);
28             }
29              
30             1;
31              
32             __END__