CPAN::Groonga

r_transport {
  my $class = shift;
  my ($sims) = @_;
  # Convert objects into columns/values for JSON encoding.
  my %flattened;
  while ( my ($k, $v) = each %{$sims} ) {
    $flattened{$k} = [ map {

or_transport($sims);
  }

  return $rv // { error => 'No actions taken' };
}

use JSON::XS qw( encode_json decode_json );
use Plack::Request;
use Web::Simple; # Needed for the prototypes

sub dispatch

v);
      my $request = decode_json($r->content);

      my $rv = $class->do_sims( $request );

      [ 200, [ 'Content-type', 'application/json' ],
        [ encode_json($rv) ],
      ]
    },
  }
}