Mojolicious write_chunk testcase

Example.pm

package Testcase::Example;
use Mojo::Base 'Mojolicious::Controller';
use Time::HiRes qw(sleep);

# This action will render a template
sub welcome {
	my $self = shift;

	$self->render_later;
	$self->res->code(200);
	$self->res->headers->content_type('text/plain');

	my $next_input;
	my $n = 0;
	$next_input = sub {
		if($n == 150) {
			return $self->write_chunk('');
		}
		$n++;
		sleep 0.1;
		$self->write_chunk(">> $n <<\n", $next_input);
	};
	$self->write_chunk("Begin of input!\n", $next_input);
}

1;

Testcase.pm

package Testcase;
use Mojo::Base 'Mojolicious';

# This method will run once at server start
sub startup {
  my $self = shift;

  # Routes
  my $r = $self->routes;
  $r->route('/')->to('example#welcome');
}

1;