An example indexer using Lucy::Simple

indexer-simple.pl

#! /usr/bin/env perl

# Example from https://metacpan.org/module/Lucy::Simple

use Lucy::Simple;

my $index = Lucy::Simple->new(
    path     => './index',
    language => 'en',
);

my %source_docs = (
    'Foo' => 'I am a page about birds that fly high in the sky',
    'Bar' => 'This is a page about whales that hold their breath in the sea'
);

while ( my ( $title, $content ) = each %source_docs ) {
    $index->add_doc({
        page     => $title,
        content  => $content,
    });
}
~                                                                                                                                                                                                
~