A scope-guarded proxy-object for Mojo::IOLoop which starts the loop when it goes out of scope.

LoopGuard.pm

package LoopGuard;

use Mojo::Base -base;
use Mojo::IOLoop;
use Mojo::Util 'monkey_patch';

has ioloop => sub { Mojo::IOLoop->singleton };

sub import {
  my $caller = caller;
  monkey_patch $caller, i => sub { __PACKAGE__->new };
}

sub AUTOLOAD {
  my $method = (split /::/, our $AUTOLOAD )[-1];
  shift->ioloop->$method(@_);
}

sub DESTROY {
  my $loop = shift->ioloop;
  $loop->start unless $loop->is_running;
}

1;