terminfo.pm

来自「Plucene-1.25.tar.gz PERL版本的lucene」· PM 代码 · 共 60 行

package Plucene::Index::TermInfo;

=head1 NAME

Plucene::Index::TermInfo - Information on an index term

=head1 SYNOPSIS

	my $term_info = Plucene::Index::TermInfo->new({
			doc_freq     => $doc_freq,
			freq_pointer => $freq_pointer,
			prox_pointer => $prox_pointer,
	});

=head1 DESCRIPTION

This class holds information about an index term.

=head1 METHODS

=cut

use strict;
use warnings;

use Carp;

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

=head2 doc_freq / freq_pointer / prox_pointer

Get / set term info.

=cut

__PACKAGE__->mk_accessors(qw( doc_freq freq_pointer prox_pointer ));

=head2 copy_in  / clone

	$term_info1->copy_in($term_info2);

	my $term_info1 = $term_info2->clone;

These will make $term_info1 be the same as $term_info2.
	
=cut

sub copy_in {
	my ($self, $other) = @_;
	%$self = %$other;
	return $self;
}

sub clone {
	my $self = shift;
	return bless {%$self} => ref $self;
}

1;