The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package UAV::Pilot::WumpusRover::Packet::StartupMessage;
use v5.14;
use Moose;
use namespace::autoclean;


use constant {
    payload_length => 5,
    message_id     => 0x08,
    payload_fields => [qw{
        system_type
        system_id
        firmware_version
    }],
    payload_fields_length => {
        system_type      => 1,
        system_id        => 1,
        firmware_version => 3,
    },
};


has 'system_type' => (
    is  => 'rw',
    isa => 'Int',
);
has 'system_id' => (
    is  => 'rw',
    isa => 'Int',
);
has 'firmware_version' => (
    is  => 'rw',
    isa => 'Int',
);

with 'UAV::Pilot::WumpusRover::Packet';


no Moose;
__PACKAGE__->meta->make_immutable;
1;
__END__