use Mojo::Base -strict, -signatures, -async_await;
use Mojo::IOLoop::Subprocess;
use Mojo::Promise;

async sub testMethod{

	$c->render_later;

	show "BEFORE";

	my @promises;

	for(0..5){

		say "(START) This is $_ loop";
		
		my $subprocess = Mojo::IOLoop::Subprocess->new;
			
			push @promises, $subprocess->run_p(
			
				sub {
					my $i = shift || 1;
					my $promise = Mojo::Promise->new;
					say "Hello, from $i and $$!";
					sleep 2;
					say "Good bye, from $i and $$!";
					
					$promise->resolve("Done for $i");
					return $promise;
					#return "Done for $i";
				}->($_)
			)->then(sub ($_result) {
				show $_result;
				return $_result;
			})->catch(sub  {
				my $err = shift;
				say "Subprocess error: $err";
			});
		$subprocess->ioloop->start unless $subprocess->ioloop->is_running;
		say "(END) This is $_ loop";
	}


	my @results = await Mojo::Promise->all_settled(@promises); 
	show @results;
	show "AFTER";
	return $c->render(text => "All done", status => 200);
}