sub _build_xmpp_client {
my ($self) = @_;
- $self->_login_xmpp_client($self->_new_child(XMPP_Client, { }));
+ $self->_login_xmpp_client($self->_new_child(XMPP_Client, {
+ on_message => $self->_replace_weakself('handle_message'),
+ }));
}
sub _login_xmpp_client {
my $conf = $self->jabber_config;
$xmpp->login(
jid => $conf->user, host => $conf->server, password => $conf->pass,
- on_message => $self->_replace_weakself('handle_message'),
);
$xmpp;
}