Commit | Line | Data |
fbcc39ad |
1 | package TestApp::Controller::Action::Streaming; |
2 | |
3 | use strict; |
4 | use base 'TestApp::Controller::Action'; |
5 | |
6 | sub streaming : Global { |
7 | my ( $self, $c ) = @_; |
8 | for my $line ( split "\n", <<'EOF' ) { |
9 | foo |
10 | bar |
11 | baz |
12 | EOF |
13 | $c->res->write("$line\n"); |
14 | } |
15 | } |
16 | |
17 | 1; |