echo.p6w

use v6.c;

use Crust::Request;
use JSON::Fast;

sub app($env) {
    my $req = Crust::Request.new($env);

    given $req.path-info {
        when '/' {
            my $q = $req.query-parameters<q>;
            if (!$q) {
                return 400, [], ["Missing mandatory parameter `q`"];
            }

            return 200, ['Content-Type' => 'application/json'], [to-json { echo => $q }];
        }
        default {
            return 404, [], ["Not Found"];
        }
    }
}

$ crustup --server HTTP::Server::Tiny echo.p6w

$ wrk -t 100 -c 500 "http://localhost:5000/?q=hello"
Running 10s test @ http://localhost:5000/?q=hello
  100 threads and 500 connections
  Thread Stats   Avg      Stdev     Max   +/- Stdev
    Latency   348.78ms  311.42ms 977.82ms   80.00%
    Req/Sec     6.56      7.62    19.00     77.78%
  15 requests in 10.10s, 5.14KB read
  Socket errors: connect 0, read 517, write 0, timeout 0
Requests/sec:      1.49
Transfer/sec:     520.94B