File Coverage

blib/lib/SDLx/Coro/Widget/Controller.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

package SDLx::Coro::Widget::Controller;

=head1 NAME

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

=head1 SYNOPSYS

  use SDLx::Coro::Widget::Controller;

  # More info coming soon!

=cut

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

use Coro;
use AnyEvent;

our $VERSION = '0.01';

sub _event {
    my $self = shift;

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

    # Magical cede to other anyEvent stuff
    my $done = AnyEvent->condvar;
    my $delay = AnyEvent->timer( after => 0.00000001, cb => sub {  $done->send; cede();} );
    $done->recv;
}

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

1;