AnyEvent::XMPP

gistfile1.pl

#!/usr/bin/env perl
use common::sense;

use AnyEvent;
use AnyEvent::XMPP::Client;
 
my $cv  = AE::cv;

my $client = AnyEvent::XMPP::Client->new(debug => 1);
$client->add_account('[email protected]', 'password');

my $timer;
$client->reg_cb(
    session_ready => sub {
        my ($client, $acc) = @_;
        $client->send_message(
            "Hello! Jabber message!", '[email protected]',
            undef, 'chat'
        );

        $timer = AE::timer 2, 0, sub {
            $client->disconnect;
        };
   },
   disconnect => sub {
      my ($client, $acc, $h, $p, $reas) = @_;
      say "disconnect ($h:$p): $reas";
      $cv->send;
   },
   error => sub {
      my ($client, $acc, $err) = @_;
      say "ERROR: " . $err->string ;
      $cv->send;
   },
);

$client->start;

$cv->recv;

say "THE END";