Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
DocumentWriter.pm	4.15 KB	-rw-r--r--
FieldInfos.pm	3.95 KB	-rw-r--r--
FieldsReader.pm	1.83 KB	-rw-r--r--
FieldsWriter.pm	2.79 KB	-rw-r--r--
Reader.pm	4 KB	-rw-r--r--
SegmentInfo.pm	909 B	-rw-r--r--
SegmentInfos.pm	2.42 KB	-rw-r--r--
SegmentMergeInfo.pm	2.49 KB	-rw-r--r--
SegmentMerger.pm	4.58 KB	-rw-r--r--
SegmentReader.pm	6.73 KB	-rw-r--r--
SegmentTermDocs.pm	2.82 KB	-rw-r--r--
SegmentTermEnum.pm	3.16 KB	-rw-r--r--
SegmentTermPositions.pm	2.88 KB	-rw-r--r--
SegmentsReader.pm	6.7 KB	-rw-r--r--
SegmentsTermEnum.pm	1.6 KB	-rw-r--r--
Term.pm	1.45 KB	-rw-r--r--
TermInfo.pm	902 B	-rw-r--r--
TermInfosReader.pm	3.39 KB	-rw-r--r--
TermInfosWriter.pm	3.65 KB	-rw-r--r--
Writer.pm	7.98 KB	-rw-r--r--

Code Editor : Term.pm

package Plucene::Index::Term;

=head1 NAME

Plucene::Index::Term - a word from text

=head1 SYNOPSIS

my $term = Plucene::Index::Term->new({
			field => $field_name,
			text  => $text,
	});

# with two Plucene::Index::Term objects you can do:
	
	if ($term1->eq($term2)) { ... }

# etc
	
=head1 DESCRIPTION

A Term represents a word from text, and is the unit of search.  It is 
composed of two elements, the text of the word, as a string, and the 
name of the field that the text occured in, as a string.

Note that terms may represent more than words from text fields, but 
also things like dates, email addresses, urls, etc.

=head1 METHODS

=cut

use strict;
use warnings;
no warnings 'uninitialized';

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

__PACKAGE__->mk_accessors(qw(field text));

=head2 eq / ne / lt / gt / ge / le

Exactly what you would think they are.

=cut

sub _cmp {
	($_[0]->{field} cmp $_[1]->{field}) || ($_[0]->{text} cmp $_[1]->{text});
}

sub eq {
	$_[0]->{field} eq $_[1]->{field} && $_[0]->{text} eq $_[1]->{text};
}

sub ne {
	$_[0]->{field} ne $_[1]->{field} || $_[0]->{text} ne $_[1]->{text};
}

sub lt {
	($_[0]->{field} cmp $_[1]->{field} || $_[0]->{text} cmp $_[1]->{text}) < 0;
}

sub gt {
	($_[0]->{field} cmp $_[1]->{field} || $_[0]->{text} cmp $_[1]->{text}) > 0;
}

sub ge {
	($_[0]->{field} cmp $_[1]->{field} || $_[0]->{text} cmp $_[1]->{text}) >= 0;
}

sub le {
	($_[0]->{field} cmp $_[1]->{field} || $_[0]->{text} cmp $_[1]->{text}) <= 0;
}

${this.title}

Code Editor : Term.pm