server.pl6

#!/usr/bin/env perl6

use lib '../p6-db-orm-quicky/lib';
use HTTP::Server::Async;
use HTTP::Server::Router;
use DB::ORM::Quicky;
use JSON::Tiny;

my HTTP::Server::Async $server .=new;
my DB::ORM::Quicky     $orm    .=new(:debug);

$orm.connect(
  driver  => 'Pg',
  options => %(
    database => 'tonyo',
  ),
);

serve $server;

route '/search/:term', -> $req, $res {
  my $search = $orm.search('version', {
    module => $req.params<term>,
  });
  my @results;
  while $search.next -> $module {
    @results.push(%(
      qw<version version author author commit_id commit module module>.map(-> $db, $key {
        $key => $module.get($db)
      });
    ));
  }
  $res.close(to-json(@results));
};

$server.listen(True);

# vi:syntax=perl6