File Coverage

blib/lib/SDLx/Controller/Coro.pm

Criterion	Covered	Total	%
statement	10	12	83.3
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	14	16	87.5

package SDLx::Controller::Coro;

=head1 NAME

SDLx::Controller::Coro - Event loop with Coro yummyness

=head1 SYNOPSIS

  use SDLx::Controller::Coro;

  # More info coming soon!

=head1 DESCRIPTION

This module builds off of L, bringing Coro into the
event loop so that async events and routines will be processed.

=cut

use strict;
use base 'SDLx::Controller';

use EV;
use AnyEvent;
use Coro;
AnyEvent::detect; # Force AnyEvent to integrate Coro into EV

our $VERSION = '0.03';

sub _event {
  my $self = shift;

  $self->SUPER::_event(@_);

  # Give other AnyEvent/Coro/EV things a shot
  yield();
}

sub run {
  my $self = shift;
  async { $self->SUPER::run(@_); };
  EV::loop();
}

use Coro::AnyEvent;

sub yield {
  #Coro::AnyEvent::poll();
  Coro::AnyEvent::idle_upto(0.01);
}

1;