use 5.014;
use strictures;
use Lucy;
use Time::HiRes "gettimeofday", "tv_interval";
use Number::Format "format_number";

my $index = "./lucy.index";

my $searcher = Lucy::Search::IndexSearcher
    ->new( index => $index );

my $all = $searcher->hits( query => Lucy::Search::MatchAllQuery->new );

print "Searching ", format_number($all->total_hits), " records.\n";

print "Query (q to quit): ";
while ( my $q = <STDIN> )
{
    chomp $q;
    exit if $q =~ /\Aq(uit)?\z/i;
    my $t0 = [gettimeofday()];
    my $hits = $searcher->hits( query => $q,
                                num_wanted => 3 );
    printf "\nMatched %s record%s in %1.2f milliseconds\n",
        format_number($hits->total_hits),
        $hits->total_hits == 1 ? "" : "s",
        1_000 * tv_interval( $t0, [gettimeofday()] );

    while ( my $hit = $hits->next )
    {
        printf "%12d -> %s\n", $hit->{id}, $hit->{content};
    }

    print "\nQuery: ";
}