) ],
}, $class;
- warn "# ",dump($self);
+ #warn "# ",dump($self);
return $self;
}
create => 1,
);
- warn "# created indexer";
+ #warn "# created indexer";
return $self->{_indexer} = $indexer;
sub commit {
my $self = shift;
$self->indexer->commit;
- warn "# commit index ", dump($self->{stats});
+ print STDERR "[commit]";
}
sub _field_lower_upper_term {
if ( $range ) {
$range->{field} = $field;
- warn "# $field $l - $u numeric_padding:$numeric_padding ",dump($range);
+ #warn "# $field $l - $u numeric_padding:$numeric_padding ",dump($range);
}
return $range;
}