UserAgent in controller

ua.bad.pl

my $ua = Mojo::UserAgent->new();
my $result;

$self->render_later;
$ua->head( $location => sub {
    my ($ua, $tx) = @_;

    if ( $tx->res->code eq '200' ) {
        $result = 'good';
    }
    else {
        $result = 'bad';
    }
    $self->render( result => $result );
});
Mojo::IOLoop->start unless Mojo::IOLoop->is_running;

ua.good.pl

  my $result;

  $self->render_later;
  $self->ua->head('http://ya.ru' => sub {
      my ($ua, $tx) = @_;

      print $self->dumper($ua);


      if ( $tx->res->code eq '200' ) {
          $result = 'good';
      }
      else {
          $result = 'bad';
      }
      sleep 2;
      $self->render( data => $result );
  });
  Mojo::IOLoop->start unless Mojo::IOLoop->is_running;