使用Bot :: BasicBot时如何发送原始IRC消息

Question

Bot::BasicBot提供了一种获取底层POE :: Component :: IRC :: State对象pocoirc（）的句柄的方法。使用此对象句柄，似乎应该可以发送如下原始消息：

sub said {
  my ($self, $message) = @_;
  $self->pocoirc()->yield('raw_events' => 1);
  $self->pocoirc()->yield('irc_raw_out' => 'RAW message');

然而，这给出了错误＆＃34;不能调用方法＆＃34;产生＆＃34;没有包或对象参考＆＃34; - 返回的对象似乎没有导出预期的方法。我误解了我回来的对象是什么，或者如何触发发送原始邮件？

Answer 1

由于关于Data :: Printer的提示，结果是POE :: Kernel可用作自我＆gt; {kernel}。要将原始命令排入队列，

$self->{kernel}->post( $self->{IRCNAME}, 'quote', 'your raw command');