#!/usr/bin/perl
use lib '../lib';
use strict;
use Continuity;
use Continuity::Adapt::Plack;
my $server = Continuity->new(
adapter => Continuity::Adapt::Plack->new,
debug_level => 3,
);
$server->loop;
sub main {
my $request = shift;
print STDERR "Got request: $request\n";
$request->print("Hello!");
print STDERR "Printed hello... calling ->next\n";
$request->next;
print STDERR "Back from ->next!\n";
$request->print("World!");
}