UAV::Pilot::WumpusRoverControl::Event
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;
An event-driven version of the WumpusRover Control.
init_event_loop( $cv, $event );
Sets up the event loop. Takes $cv (an AnyEvent::Condvar) and $event (a UAV::Pilot::EasyEvent).
$cv
AnyEvent::Condvar
$event
UAV::Pilot::EasyEvent
Will listen for joystick events.
To install UAV::Pilot::WumpusRover, copy and paste the appropriate command in to your terminal.
cpanm
cpanm UAV::Pilot::WumpusRover
CPAN shell
perl -MCPAN -e shell install UAV::Pilot::WumpusRover
For more information on module installation, please visit the detailed CPAN module installation guide.