用于访问IRC服务器的简单Perl模块

Question

我正在尝试编写一个非常简单的IRC客户端，该客户端将主题设置在给定的频道上（它首先需要识别并获得操作）。 理想情况下，我希望能够编写如下内容：

$client = new IRC::Client(%config);
$client->connect();
$client->identify('password');
$client->join('#channel');
$client->op('#channel'); # gain ops
$client->set_topic('#channel', 'new topic');
$client->disconnect();

是否有通过简单的界面支持此受限功能的模块？ metacpan上所有与IRC相关的模块似乎都针对希望编写功能齐全的机器人的人-我看过Bot :: BasicBot ，但这似乎希望我将模块和AnyEvent :: IRC :: Client子类化。似乎水平很低。 我不想编写事件处理代码，只需连接，发出一些命令并断开连接即可。

Answer 1

还考虑Net::Async::IRC 。