Plucene::Search::Scorer - base class for scorers

package Plucene::Search::Scorer;

use strict;
use warnings;

use Plucene::Search::Similarity;

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;