gistfile1.txt

use Mojolicious::Lite;
use Mojo::UserAgent;
use Mojo::IOLoop;

get '/get' => sub {
	my $c = shift;
	$c->render(text => "TEST");
};

get '/test' => sub {
	my $c = shift;

	# my $ua = Mojo::UserAgent->new;
	my $ua = $c->ua;
	Mojo::IOLoop->delay(
	# $c->delay(
	  sub {
		my $delay = shift;
		$ua->get("http://127.0.0.1:3000/get" => $delay->begin);
		warn "so far so good";
	  },
	  sub {
		warn "we are still good!";
		my ($delay, $tx) = @_;

		$c->render(text => $tx->res->body);
	  }
	);

};

app->start;