sub servePacket {
    my ($type, @data, $offset, $length) = @_;
    given ($type) {
        serveX @data, $offset, $length when 'X_PACKET';
        serveY @data, $offset, $length when 'Y_PACKET';
        default { return 0; }
    }
    return 1;
}