streaming on Dancer...

Dancer_Response_Object.pl

use strict;
use warnings;
use Dancer;

get '/' => sub {
    my $resp = Dancer::Response->new(
        content_type => 'text/plain',
        content => "1234567890",
    );
    $resp->streamed(sub {
        my ($status, $headers) = @_;
        return sub {
            my $respond = shift;
            my $writer  = $respond->([ $status, $headers ]);
            for (1..5) {
                sleep 1;
                $writer->write($_ . "\n");
            }
        };
    });
    $resp;
};

dance;

send_file.pl

use strict;
use warnings;
use Dancer;

get '/' => sub {
    my $data = "";
    send_file \$data,
        streaming => 1,
        callbacks => {
            override => sub {
                my($respond, $dancer_resp) = @_;
                my $writer = $respond->([ 200, [ 'Content-Type' => 'text/plain' ] ]);
                for (1..5) {
                    $writer->write("$_\n");
                    sleep 1;
                }
            },
    };
};

dance;

http://d.hatena.ne.jp/rightgo09/20120524/p1
Dancer 単体でやるのは悪手な気がする。ストリーミングさせるために coderef 渡しにする書き方をするんだけど、content 本体を指定しておかないとコールバックが発火しないので、何らかのデータを用意する必要があるし