Continuity version of slowapp.psgi (from Plack)

slowapp.pl

#!/usr/bin/env perl

use strict;
use warnings;
use Continuity;
use Coro::Timer;

my $server = Continuity->new(
    port           => 4488,
    cookie_session => 1,
    query_session  => 1,
    path_session   => 1,
);
$server->loop;

sub main {
    my $request = shift;
    Coro::Timer::sleep 0.1;
    $request->print("Hello, World!");
}