Perl Diver 2.33
Main Environment Variables Perl Default Values Perl Config - Summary Perl Config - Full Installed Modules List Directory uptime Docs

Module Documentation
Details and documentation about a specific module, including version and documentation (if available). Note that while links to perldoc.com and search.cpan.org are provided, the module may be part of a larger distribution. If you reach a File Not Found page on either site, please try the parent module.

Plucene::Index::SegmentMergeInfo

Name Plucene::Index::SegmentMergeInfo
Version
Located at /usr/share/perl5
File /usr/share/perl5/Plucene/Index/SegmentMergeInfo.pm
Is Core No
Search CPAN for this module Plucene::Index::SegmentMergeInfo
Documentation Plucene::Index::SegmentMergeInfo
Module Details Plucene::Index::SegmentMergeInfo

NAME

Plucene::Index::SegmentMergeInfo - Segment Merge information


SYNOPSIS

        my $seg_merge_info 
                = Plucene::Index::SegmentMergeInfo->new($b, $te, $r);
        $seg_merge_info->next;


DESCRIPTION

This is the Plucene::Index::SegmentMergeInfo class.


METHODS

new

        my $seg_merge_info = Plucene::Index::SegmentMergeInfo
                ->new($base, Plucene::Index::TermEnum $te, $reader);

This will create a new Plucene::Index::SegmentMergerInfo object.


=head2 base / reader / term_enum / term / postings / doc_map

Get / set these attributes.


=cut

# SegmentMergeInfo(int b, SegmentTermEnum te, SegmentReader r) # throws IOException { # base = b; # reader = r; # termEnum = te; # term = te.term(); # postings = new SegmentTermPositions(r); # # if (reader.deletedDocs != null) { # // build array which maps document numbers around deletions # BitVector deletedDocs = reader.deletedDocs; # int maxDoc = reader.maxDoc(); # docMap = new int[maxDoc]; # int j = 0; # for (int i = 0; i < maxDoc; i++) { # if (deletedDocs.get(i)) # docMap[i] = -1; # else # docMap[i] = j++; # } # } # }

sub new {
my ($class, $b, $te, $r) = @_;
my $self = $class->SUPER::new({
base => $b,
reader => $r,
term_enum => $te,
term => $te->term,
postings => Plucene::Index::SegmentTermPositions->new($r),
});

        if (my $del = $r->deleted_docs) {
                my $j;
                $self->{doc_map} = [ map $del->get($_) ? -1 : $j++, 0 .. $r->max_doc ];
        }
        return $self;
}

next

        $seg_merge_info->next;

close

        $seg_merge_info->close;

Perl Diver brought to you by ScriptSolutions.com © 1997- 2026