Quick 'n dirty ElasticSearch via Catmandu/Perl (Part 1)

elastic.pl

# assuming catmandu.yml in the same folder as this script
# Change bag("document") to the relevant bag name / document type in ES
# ensure camtandu.yml exists!

use Catmandu::Sane;

use Config::Onion;
use Catmandu;
use Path::Tiny;
use Data::Dumper;

sub build_root_path {
    path(__FILE__)->parent->absolute->stringify;
}

sub build_config {

    my $config = Config::Onion->new(prefix_key => '_prefix');

    my @paths = ( build_root_path() );

    $config->load_glob(map {path($_)->child('*.yml')->stringify}
            reverse @paths);

    $config->get;
}

Catmandu->load(build_root_path());
Catmandu->config(build_config());

my $store = Catmandu->store('search');
my $hits = $store->bag("document")->search(query => 'text:contents');

print Dumper($hits);