async socket.pl6

#!/usr/bin/env perl6

class REST::Server {
  has $.host    = '127.0.0.1';
  has $.port    = 8080;
  has %.options is rw;
  has $.debug   = 1;

  has Supply $!scheduler;

  method listen() {
    $!scheduler = IO::Socket::Async.listen(
                $.host,
                $.port,
              );
    my $num = 0;
    $!scheduler.tap(sub ($connection) {
        my $snum = $num++;
        "accepted connection $snum".say if $.debug;
        $connection.send("HTTP/1.1 200 OK\r\nContent-Type: text/plain\r\nContent-Length: 6\r\n\r\nstring");
        "closing connection $snum".say if $.debug;
        $connection.close;
    });

    sleep 50;
  }

};

my $s = REST::Server.new;

$s.listen;