Net::Async::XMPP - asynchronous XMPP client based on Protocol::XMPP and IO::Async::Protocol::Stream.
version 0.002
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->loop_forever;
See the Net::Async::XMPP::Client or Net::Async::XMPP::Server subclasses for more details.
Tom Molesworth <cpan@entitymodel.com>
Copyright Tom Molesworth 2010-2011. Licensed under the same terms as Perl itself.
To install Net::Async::XMPP, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Net::Async::XMPP
CPAN shell
perl -MCPAN -e shell install Net::Async::XMPP
For more information on module installation, please visit the detailed CPAN module installation guide.