gistfile1.txt

use Plack::Builder;

{
    package Hoge;

    sub new {
        bless [1] => shift;
    }

    sub getline {
        my $self = shift;
        if ( $self->[0]++ > 10 ) {
            return;
        }
        sleep(2);
        return ("100" x 10) . "\n";
    }
    sub close {}
}

my $app = sub {
    my $env = shift;
    return ['200', ['Content-Type' => 'text/plain'], Hoge->new];
};

builder {
    $app;
};