Streaming PSGI with IO::AIO

gistfile1.pl

my $app = sub {
    return sub {
        my $response = shift;
        my $writer   = $response->( [ 200, [] ] );

        my $buffer = "a" x 1024;

        $writer->write( $buffer );
        $buffer =~ y/a/b/;
    }
};