delayed.pl

#!/usr/bin/env perl
use Mojolicious::Lite;
use EV;
use AnyEvent;

# Simple delayed rendering
get '/' => sub {
  my $self = shift;
  my $w;
  $w = AE::timer 3, 0, sub {
    $self->render_text('3 seconds delayed!');
    undef $w;
  };
};

app->start;

naive.pl

#!/usr/bin/env perl
use Mojolicious::Lite;
use EV;
use AnyEvent;

# Naive timer
my $counter = 0;
my $w = AnyEvent->timer(
  after    => 1,
  interval => 1,
  cb       => sub { say $counter++ }
);

# Normal route
get '/' => sub {
  my $self = shift;
  $self->render(text => "Counter: $counter");
};

app->start;

prefork.pl

#!/usr/bin/env perl
use Mojolicious::Lite;
use EV;
use AnyEvent;

# Timer that survives prefork
my $counter = 0;
my $w;
under sub {
  $w ||= AnyEvent->timer(
    after    => 1,
    interval => 1,
    cb       => sub { say $counter++ }
  );
};

# Normal route
get '/' => sub {
  my $self = shift;
  $self->render(text => "Counter: $counter");
};

app->start;