NAME

UAV::Pilot::WumpusRoverControl::Event

SYNOPSIS

my $cv = AnyEvent->condvar;
my $event = UAV::Pilot::EasyEvent->new({
    condvar => $cv,
});

my $driver = UAV::Pilot::WumpusRover::Driver->new({
    host => $hostname,
});
$driver->connect;

my $control = UAV::Pilot::WumpusRover::Control::Event->new({
    driver       => $driver,
    joystick_num => 0,
});
$control->init_event_loop( $cv, $event );

$cv->recv;

DESCRIPTION

An event-driven version of the WumpusRover Control.

METHODS

init_event_loop

init_event_loop( $cv, $event );

Sets up the event loop. Takes $cv (an AnyEvent::Condvar) and $event (a UAV::Pilot::EasyEvent).

Will listen for joystick events.