NAME

UAV::Pilot::WumpusRover::Control

SYNOPSIS

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

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

$control->turn( 30 );
$control->throttle( 70 );

DESCRIPTION

NOTE: You probably want to use UAV::Pilot::WumpusRover::Control::Event instead of this.

A controller for the WumpusRover. Does the UAV::Pilot::ControlRover and UAV::Pilot::Logger roles.

METHODS

send_move_packet

Sends a packet using the passed driver containing the current movement settings.

ATTRIBUTES

turn

A read/write attribute that takes values between 0 and 180. 0 is to the left and 180 is to the right.

throttle

A read/write attribute that takes values between 0 and 100. 0 is stop or full reverse (depending on how your ESC is setup). 100 is full speed ahead.