NAME

    UAV::Pilot::Wumpus::Control

SYNOPSIS

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

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

DESCRIPTION

NOTE: You probably want to use UAV::Pilot::Wumpus::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.