package KinoSearch::Index::SegReader;
use KinoSearch;
1;
__END__
__BINDING__
my $synopsis = <<'END_SYNOPSIS';
my $polyreader = KinoSearch::Index::IndexReader->open(
index => '/path/to/index',
);
my $seg_readers = $polyreader->seg_readers;
for my $seg_reader (@$seg_readers) {
my $seg_name = $seg_reader->get_seg_name;
my $num_docs = $seg_reader->doc_max;
print "Segment $seg_name ($num_docs documents):\n";
my $doc_reader = $seg_reader->obtain("KinoSearch::Index::DocReader");
for my $doc_id ( 1 .. $num_docs ) {
my $doc = $doc_reader->fetch_doc($doc_id);
print " $doc_id: $doc->{title}\n";
}
}
END_SYNOPSIS
Clownfish::Binding::Perl::Class->register(
parcel => "KinoSearch",
class_name => "KinoSearch::Index::SegReader",
bind_methods => [qw( Get_Seg_Name Get_Seg_Num Register )],
bind_constructors => ["new"],
make_pod => {
synopsis => $synopsis,
methods => [qw( Get_Seg_Name Get_Seg_Num )],
},
);
__COPYRIGHT__
Copyright 2005-2011 Marvin Humphrey
This program is free software; you can redistribute it and/or modify
under the same terms as Perl itself.