/usr/share/perl5/Plucene/Search/Scorer.pm is in libplucene-perl 1.25-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 | package Plucene::Search::Scorer;
=head1 NAME
Plucene::Search::Scorer - base class for scorers
=head1 DESCRIPTION
Abstract base class for scoring.
=cut
use strict;
use warnings;
use Plucene::Search::Similarity;
=head2 score
This must be defined in a subclass
=cut
sub score { die "score must be defined in a subclass" }
sub _score_it {
my ($self, $freq, $doc, $results) = @_;
return unless $freq > 0;
my $score = Plucene::Search::Similarity->tf($freq) * $self->weight;
my $norm = substr($self->norms, $doc, 1);
my $norm_freq = Plucene::Search::Similarity->byte_norm($norm);
$score *= $norm_freq;
$results->collect($doc, $score);
}
1;
|