Import JSON::PP explicitly in lib/BotLib.pm

bin/aleesa-telegram

@@ -193,6 +193,10 @@ sub __fork {
 sub __signal_handler {
 	$log->info ("[INFO] Caught a signal $OS_ERROR");
 
+	eval {
+		$main::TGM->logOut();
+	};
+
 	if (-e $pidfile) {
 		unlink $pidfile;
 	}

lib/BotLib.pm

@@ -10,6 +10,7 @@ use English qw ( -no_match_vars );
 
 use Clone qw (clone);
 use Data::Dumper qw (Dumper);
+use JSON::PP ();
 use Log::Any qw ($log);
 use Math::Random::Secure qw (irand);
 

lib/Teapot/Bot/Brain.pm

@@ -958,6 +958,23 @@ sub _post_request {
   return $result;
 }
 
+sub logOut {
+  my $self = shift;
+
+  my $send_args = {};
+  my $ret;
+
+  if (! defined($self->token) || $self->token eq '') {
+    $ret->{error}   = 1;
+    $ret->{message} = 'No token supplied to logOut()';
+
+    return $ret;
+  }
+
+  my $url               = sprintf 'https://api.telegram.org/bot%s/logOut', $self->token;
+
+  return $self->_post_request($url, $send_args);
+}
 
 1;