use strict;
use Search::Estraier 0.04;
+use Data::Dump qw(dump);
my $debug = $ENV{DEBUG} || 0;
sub new {
- my ( $class, $index_node_url ) = @_;
+ my $class = shift @_;
+ my %Conf = @_;
+
+ my $index_node_url = $Conf{HyperEstraierIndex} || die "no HyperEstraierIndex in config ",dump(%Conf);
warn "# using $index_node_url";