Logioniz

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';
    }

Logioniz

my $t = Test::Mojo->new;

sub f2 {
  my $cb = shift;
  my $d = Mojo::IOLoop->delay(
    sub {
      warn 'f2_1', $/;
      shift->pass;
    },
    sub {

Logioniz

#!/usr/bin/perl -wl

# code for answer on question

use Mojo::IOLoop;

sub inc {
  my ($num, $cb) = @_;

  return Mojo::IOLoop->next_tick(sub {$cb->('error')}) unless $num =~ /^\d+$/;