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--

package Plucene::Search::PhrasePositions;

=head1 NAME

Plucene::Search::PhrasePositions - The position of a phrase

=head1 SYNOPSIS

my $phpos = Plucene::Search::PhrasePositions->new;

my      $next = $phpos->next;
	my $first_pos = $phpos->first_position;
	my  $next_pos = $phpos->next_position;
	
=head1 DESCRIPTION

=head1 METHODS

=cut

use strict;
use warnings;

use base 'Class::Accessor::Fast';

__PACKAGE__->mk_accessors(qw/ doc position count offset tp next_in_list /);

=head2 new

my $phpos = Plucene::Search::PhrasePositions->new;

Make a new Plucene::Search::PhrasePositions object.
	
=head2 doc / position / count / offset / tp / next

Get / set these attibutes.

=cut

sub new {
	my $self = shift->SUPER::new(@_);
	$self->{offset}   ||= 0;
	$self->{position} ||= 0;
	$self->{count}    ||= 0;
	$self->next;
	$self;
}

=head2 next

my $next = $phpos->next;

=cut

sub next {
	my $self = shift;
	if (!$self->{tp}->next) {
		$self->doc(~0);
		return;
	}
	$self->doc($self->tp->doc);
	$self->position(0);
}

=head2 first_position

my $first = $phpos->first_position;

=cut

sub first_position {
	my $self = shift;
	$self->count($self->tp->freq);
	$self->next_position;
}

=head2 next_position

my $next_pos = $phpos->next_position;

=cut

sub next_position {
	my $self = shift;
	return unless $self->{count}-- > 0;
	$self->position($self->tp->next_position - $self->offset);
}