CPAN::Groonga

#!/usr/bin/env perl
use Mojolicious::Lite;
use Mojo::Redis2;
use Mojo::JSON 'j';

helper redis => sub { shift->stash->{redis} ||= Mojo::Redis2->new; };

get '/' => sub {
  my $c = shift;

  if (my $me

>execute($delay->begin);
    },
    sub {
      my ($delay, $err, $res) = @_;
      $self->render(json => {
        err => $err->compact->join('. '),
        res => $res,
      });
    },
  );

In bot

    $c->redis->get('some:message', sub {
      my ($redis, $err, $message) = @_;
      $c->render(json => { error => $err, message => $message });
      undef $tx;
    });
  };

  app->start;

=head2