iodelay.pl

helper iodelay => sub {
	my ($c, $cb) = @_;

	return sub {
		my @arg = @_;
		
		return ref(shift(@arg))
			? Mojo::IOLoop->delay(@_)->catch(sub{ $cb->($c, $_[1]) })
			: $cb->($c, undef, @arg);
	};
};

my $flow = $c->iodelay($cb);
$flow->(
	sub { },
	sub {
		$flow->(return => 44, 55);
	},
);