kraih

#!/usr/bin/env perl
use Mojo::Base -strict;

use utf8;

use Test::More tests => 4;
use Mojolicious::Lite;
use Test::Mojo;

# Tiny echo web service

kraih

use Mojolicious::Lite;
use EV;
use AnyEvent;
use AnyEvent::Util;

get '/' => sub {
  my $self = shift;

  # Run Perl oneliner in separate process and capture STDOUT
  fork_call {

kraih

package Mojolicious::Plugin::Coro;
use Mojo::Base 'Mojolicious::Plugin';
use Coro;
use Mojo::IOLoop;

# Wrap application in coroutine and reschedule main coroutine in event loop
sub register {
  my ($self, $app) = @_;

  my $subscribers = $app->plugins->subscribers('around_dispatch');