[catagits/Catalyst-Runtime.git] / t / live / lib / TestApp / Controller / Action / Streaming.pm

package TestApp::Controller::Action::Streaming;

use strict;
use base 'TestApp::Controller::Action';

sub streaming : Global {
    my ( $self, $c ) = @_;
    for my $line ( split "\n", <<'EOF' ) {
foo
bar
baz
EOF
        $c->res->write("$line\n");
    }
}

1;
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;