gistfile1.pl

#! /usr/bin/perl -w

use strict;
use warnings;
package main;
use Dancer ':syntax';
use Dancer::Plugin::DBIC;
use Template;
package My::LawDB::Schema;
use base qw(DBIx::Class::Schema::Loader);
my $schema = My::LawDB::Schema->connect('dbi:SQLite:dbname=LawDB.db');

### ... ###

get '/websearch' => sub {
  template 'websearch';
};

post '/webresults' => sub {

  my $query = params->{query};
  my @links = schema->resultset('LinkIdx')->search({content => {match => $query}});

  my @snippets = schema->dbh_do("SELECT id,snippet(Link_idx) AS content FROM Link_idx WHERE content MATCH $query;");

  template 'webresults', {links => \@links,snippets => \@snippets,query => $query};
};