Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
PhraseScorer	[ DIR ]	drwxr-xr-x
BooleanClause.pm	385 B	-rw-r--r--
BooleanQuery.pm	4.24 KB	-rw-r--r--
BooleanScorer.pm	3.93 KB	-rw-r--r--
DateFilter.pm	2.08 KB	-rw-r--r--
Filter.pm	1.13 KB	-rw-r--r--
HitCollector.pm	1.19 KB	-rw-r--r--
Hits.pm	2.39 KB	-rw-r--r--
IndexSearcher.pm	3.35 KB	-rw-r--r--
PhrasePositions.pm	1.37 KB	-rw-r--r--
PhraseQuery.pm	3.21 KB	-rw-r--r--
PhraseScorer.pm	2 KB	-rw-r--r--
PrefixQuery.pm	1.81 KB	-rw-r--r--
Query.pm	2.12 KB	-rw-r--r--
Scorer.pm	663 B	-rw-r--r--
Searcher.pm	1.94 KB	-rw-r--r--
Similarity.pm	1.06 KB	-rw-r--r--
TermQuery.pm	2.46 KB	-rw-r--r--
TermScorer.pm	1.67 KB	-rw-r--r--
TopDocs.pm	701 B	-rw-r--r--

Code Editor : PhraseScorer.pm

package Plucene::Search::PhraseScorer;

=head1 NAME

Plucene::Search::PhraseScorer - a phrase scorer

=head1 SYNOPSIS

# isa Plucene::Search::Scorer

$scorer->score($results, $end);
	
=head1 DESCRIPTION

This is the phrase scorer.

=head1 METHODS

=cut

use strict;
use warnings;

use Tie::Array::Sorted;

use Plucene::Search::PhrasePositions;

use base qw(Plucene::Search::Scorer Class::Accessor::Fast);

sub _phrase_freq { die "Abstract method" }

__PACKAGE__->mk_accessors(qw/ norms weight pq first last /);

sub new {
	my $self = shift->SUPER::new(@_);
	my @pq;
	tie @pq, "Tie::Array::Sorted", sub {
		$_[0]->doc <=> $_[1]->doc
			|| $_[0]->position <=> $_[1]->position;
	};

for my $i (0 .. $#{ $self->{tps} }) {
		push @pq,
			Plucene::Search::PhrasePositions->new({
				tp     => $self->{tps}->[$i],
				offset => $i
			});
	}

$self->{pq} = \@pq;

$self->_pq_to_list();
	return $self;
}

# Thread the array elements together into a linked list
sub _pq_to_list {
	my $self = shift;
	$self->{first} = $self->{last} = undef;
	while (@{ $self->{pq} }) {
		my $pp = shift @{ $self->{pq} };

# If there's an entry already, put this after it
		if ($self->{last}) { $self->last->next_in_list($pp); }

# Else, this is the first one
		else { $self->first($pp); }

# But it's definitely the last one
		$self->last($pp);

# And there's nothing after it, yet.
		$pp->next_in_list(undef);
	}
}

=head2 score

$scorer->score($results, $end);
	
=cut

sub score {
	my ($self, $results, $end) = @_;
	while ($self->last->doc < $end) {
		while ($self->first->doc < $self->last->doc) {
			do {
				$self->first->next;
			} while $self->first->doc < $self->last->doc;
			$self->_first_to_last;
			return if $self->last->doc >= $end;
		}
		my $freq = $self->_phrase_freq;
		$self->_score_it($freq, $self->first->doc, $results);
		$self->last->next;
	}
}

sub _first_to_last {
	my $self = shift;
	$self->last->next_in_list($self->first);
	$self->last($self->first);
	$self->first($self->first->next_in_list);
	$self->last->next_in_list(undef);
}

${this.title}

Code Editor : PhraseScorer.pm