package KinoSearch::Search::PolySearcher;
use KinoSearch;
1;
__END__
__BINDING__
my $synopsis = <<'END_SYNOPSIS';
my $schema = MySchema->new;
for my $server_name (@server_names) {
push @searchers, KSx::Remote::SearchClient->new(
peer_address => "$server_name:$port",
password => $pass,
schema => $schema,
);
}
my $poly_searcher = KinoSearch::Search::PolySearcher->new(
schema => $schema,
searchers => \@searchers,
);
my $hits = $poly_searcher->hits( query => $query );
END_SYNOPSIS
my $constructor = <<'END_CONSTRUCTOR';
my $poly_searcher = KinoSearch::Search::PolySearcher->new(
schema => $schema,
searchers => \@searchers,
);
END_CONSTRUCTOR
Clownfish::Binding::Perl::Class->register(
parcel => "KinoSearch",
class_name => "KinoSearch::Search::PolySearcher",
bind_constructors => ["new"],
make_pod => {
synopsis => $synopsis,
constructor => { sample => $constructor },
methods => [
qw( hits
doc_max
doc_freq
fetch_doc
get_schema
)
],
}
);
__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.