/usr/share/perl5/Plucene/Index/TermInfo.pm is in libplucene-perl 1.25-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 | 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;
|