Tom Molesworth > Net-Async-XMPP > Net::Async::XMPP

Download:
Net-Async-XMPP-0.003.tar.gz

Dependencies

Annotate this POD

Website

CPAN RT

Open  0
View/Report Bugs
Module Version: 0.003   Source  

NAME ^

Net::Async::XMPP - asynchronous XMPP client based on Protocol::XMPP and IO::Async::Protocol::Stream.

VERSION ^

version 0.002

SYNOPSIS ^

 use IO::Async::Loop;
 use Net::Async::XMPP;
 my $loop = IO::Async::Loop->new;
 my $client = Net::Async::XMPP::Client->new(
        on_message              => sub {
                my ($client, $msg) = @_;
                warn "Message from " . $msg->from . " subject " . $msg->subject . " body " . $msg->body;
                $msg->reply(
                        body => 'Message received: ' . $msg->body
                );
        },
        on_contact_request      => sub {
                my ($client, $contact) = @_;
                warn "Contact request from " . $contact->jid;
        },
        on_presence             => sub {
                my ($client, $contact) = @_;
                warn "Had a presence update from " . $contact->jid;
        },
 );
 $loop->add($client);
 $client->login(
        jid     => 'user@example.com',
        password => $ENV{NET_ASYNC_XMPP_PASSWORD},
 );
 $loop->run;

DESCRIPTION ^

See the Net::Async::XMPP::Client or Net::Async::XMPP::Server subclasses for more details.

AUTHOR ^

Tom Molesworth <cpan@entitymodel.com>

CONTRIBUTORS ^

With thanks to the following for contribution:

LICENSE ^

Copyright Tom Molesworth 2010-2014. Licensed under the same terms as Perl itself.

syntax highlighting: