test.psgi

use strict;
use warnings;
use utf8;

use AnyEvent;
use Plack::Request;
use Plack::Builder;
use IO::Handle::Util qw(io_from_getline);
use Encode;

my $hanlder = sub {
    my $env = shift;

    my $boundary = '|||';

    my $cv = AE::cv;
    my $w;
    $w = AnyEvent->timer(
        after => 0,
        cb    => sub {
            $cv->send([ 200, ['Content-Type' => qq{multipart/mixed; boundary="$boundary"} ], "--$boundary\nContent-Type: text/htm\
l\nhello, world!" ]);
        }
    );

    return sub {
        my $start_response = shift;
        $cv->cb(sub { $start_response->( $cv->recv ) });
    };
}