#!/usr/bin/env perl
use Modern::Perl;
use AnyEvent;
use AnyEvent::XMPP::IM;

my $im = AnyEvent::XMPP::IM->new();
my $connected_jid;

$im->reg_cb(
    connected => sub {
        my ($im, $jid, $ph, $pp) = @_;
        $connected_jid = $jid;
        say "Connected as $jid";
    },
    error => sub {
        my ($im, $jid, $error) = @_;
        warn "XMPP error: $error";
    },
    recv_message => sub {
        my ($im, $node) = @_;
        my $from = $node->attr('from');
        my $body = $node->meta->{body};

        say "Message from $from: $body";
        $im->send_message($connected_jid, $from, "Echo: $body");
    },
);

$im->add_account('mxey@localhost', 'mxey');
AnyEvent->condvar->recv;