perl - 如何正确关闭 Bot::BasicBot 机器人(基于 POE::Component::IRC)？

Question

这是一个示例脚本。当我按下 Ctrl+C 时，机器人退出了 IRC，但它会在一段时间后重新连接。如何正确关闭机器人？

#!/usr/bin/perl

package main;

my $bot = Perlbot->new (server => 'irc.dal.net');

$SIG{'INT'} = 'Handler';
$SIG{'TERM'} = 'Handler';

sub Handler {
print "\nShutting down bot...\n";
$bot->shutdown('Killed.');
};

$bot->run;

package Perlbot;
use base qw(Bot::BasicBot);

sub connected {
my $self = shift;
$self->join('#codetestchan');
}

Answer 1

我已经接管了 Bot::BasicBot 的维护工作，从 0.82 版开始，您可以使用 $bot->shutdown($quit_message) 正确关闭它。