view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

t/z_05_muc2.t
t/z_05_muc3.t
t/z_06_iq_ping.t
t/z_06_iq_ping_timeout.t
t/z_06_iq_version.t
t/z_07_vcard.t
t/z_08_vcard_hook.t
t/z_09_owncontact.t
t/z_10_component.t
t/z_20_unregister.t
t/n_xmpp2_avatar.png
samples/sendmsg
samples/EVQ.pm
samples/simple_example_1
samples/conference_lister
samples/room_lister_stat
samples/limit_searcher
samples/test_client
samples/room_lister
samples/find_servers
samples/disco_version

t/z_07_vcard.t  view on Meta::CPAN

my $C = $cl->client;
my $disco = $cl->instance_ext ('AnyEvent::XMPP::Ext::Disco');
my $vcard = $cl->instance_ext ('AnyEvent::XMPP::Ext::VCard');
$disco->enable_feature ($vcard->disco_feature);

my $test_vcard = {
   ADR      => [{ HOME => undef, LOCALITY => 'Hannover', PCODE => '23422' }],
   DESC     => ['Just a test vCard for AnyEvent::XMPP'],
   NICKNAME => ['elmex'],
   FN       => ['Robin'],
   _avatar  => do { open my $av, "t/n_xmpp2_avatar.png" or die "$!"; local $/; binmode $av; <$av> },
   _avatar_type => 'image/png'
};

my $error_free_store = 0;
my $returned_vcard;
my $cached_vcard;
my $discofeature;

$C->reg_cb (
   session_ready => sub {
      my ($C, $acc) = @_;

t/z_08_vcard_hook.t  view on Meta::CPAN

use AnyEvent::XMPP::Util qw/bare_jid prep_bare_jid/;

my $cl    = AnyEvent::XMPP::TestClient->new_or_exit (tests => 3, finish_count => 1);
my $C     = $cl->client;
my $vcard = $cl->instance_ext ('AnyEvent::XMPP::Ext::VCard');

my $got_my_vcard;
my $my_avatar;
my $my_avatar_hash;

open AVATAR, "t/n_xmpp2_avatar.png" or die "Couldn't open avatar: $!";
my $real_avatar = do { local $/; binmode AVATAR; <AVATAR> };
my $real_avatar_hash = sha1_hex ($real_avatar);
close AVATAR;

$C->reg_cb (
   stream_ready => sub {
      my ($C, $acc) = @_;
      $vcard->reg_cb (
         vcard => sub {
            my ($vcard, $jid, $vc) = @_;