# Start recurring timer my $i = 1; my $id = Mojo::IOLoop->recurring(1 => sub { # $collection->insert({ "i" => $i}); $self->write_chunk($i); $self->app->log->info( "Making $i" ); $self->finish if $i++ == $total; }); $self->on(chunk => sub { $self->render( text => \@_ ) } ); # Stop recurring timer $self->on(finish => sub { Mojo::IOLoop->remove($id) });