sub call { my ($self, $handle, $cmd, $params) = @_; if($cmd eq "sendPulse") { # Don't need to do anything with the heartbeat response $self->TOOLS::Print::sending("Sending heartbeat"); $self->{$handle}->call( $cmd, @{$params} ); return $self->{call}; } $self->callResp($self->{$handle}->call( $cmd, @{$params} )); if($cmd ne "login")