Demonstrate the cycle fixes in Mojolicious4.95

cycle.pl

use Mojo::Base -strict;

use Mojo::UserAgent;
use Mojo::IOLoop;
use Devel::Cycle;

my $ua = Mojo::UserAgent->new;

my $delay = Mojo::IOLoop->delay;
$delay->steps(
  sub {
    my $delay = shift;
    $ua->get('mojolicio.us' => $delay->begin);
    find_cycle $ua;
  },
  sub {
    my ($delay, $tx) = @_;
    say $tx->res->code;
    $ua->get('mojolicio.us' => $delay->begin);
  },
  sub {
    my ($delay, $tx) = @_;
    say $tx->res->code;
  }
);
$delay->wait;