CPAN::Groonga

:Plugin::API::VERSION = '5.0.2';
use warnings;
use strict;
use 5.010;

use Mojolicious::Lite;
use JSON::XS;
use Tapper::Cmd::Testplan;
use Tapper::Cmd::Host;
use Tapper::Cmd::Testrun;
use Tapper::Mode

      my $room = $self->param('room');
        my $ip = $self->param('ip');
        $self->render(json => {id => 12}, status => 201);
};

put 'host-new/name/:name' => sub {
        my $self = shift;
 

        $self->render(json => {id => 12}, status => 201);
};

put 'testrun-start/:testrun' => sub {
        my $self = shift;
        $self->app->renderer->default_format('json');


        my $data;

egrationtest::VERSION = '5.0.2';
use warnings;
use strict;
use 5.010;

use Mojolicious::Lite;
use JSON::XS;
use Tapper::Cmd::Testplan;
use Tapper::Cmd::Host;
use Tapper::Cmd::Testrun;
use Tapper::Mode

      my $room = $self->param('room');
        my $ip = $self->param('ip');
        $self->render(json => {id => 12}, status => 201);
};

put 'host-new/name/:name' => sub {
        my $self = shift;
 

        $self->render(json => {id => 12}, status => 201);
};

put 'testrun-start/:testrun' => sub {
        my $self = shift;
        $self->app->renderer->default_format('json');


        my $data;

renderer->default_format('json');


        my $data;
        if ($self->tx->req->body) {
                require JSON::XS;
                $data = eval{JSON::XS::decode_json($self->tx->req->body)};
 

               if ($@) {
                        $self->render(json => {
                                               error => $@
                                              },
                   

foo} eq 'bar') {
                $self->render(json => {
                                       error => "Can not find key 'foo' with value 'bar' in JSON body",
                                      }