use Mojo::Base -strict;

use Mojo::EventEmitter;
use Mojo::IOLoop;

my $bus = Mojo::EventEmitter->new;

$SIG{HUP} = sub {
  Mojo::IOLoop->next_tick(sub{ $bus->emit('HUP') });
};

$bus->on(HUP => sub { warn 'HUP' });

Mojo::IOLoop->recurring(5 => sub { warn 'ping' });

Mojo::IOLoop->start;