my ($self, $body, $wheel_id) = @_[0, 1, 2];