Can't locate object method "push_write" via package "AnyEvent::Util::guard" at /usr/local/share/perl/5.14.2/AnyEvent/XMPP/SimpleConnection.pm line 113.

#!/usr/bin/perl 
use utf8; 
use AnyEvent; 
use AnyEvent::XMPP::IM::Connection; 
use AnyEvent::XMPP::IM::Presence; 
use AnyEvent::XMPP::Util qw/split_jid/; 
 
   my $con = 
      AnyEvent::XMPP::Connection->new ( 
         username => "root", 
         domain => "perlx.de", 
         hostname => "localhost", 
         password => "123458765", 
         resource => "Blubb" 
      ); 
 
   $con->reg_cb (stream_ready => sub { print "bereit!\n" }); 
   $con->connect; 
 
   
   AnyEvent::XMPP::IM::Message->new ( 
      body => "test", 
      to   => "tk@perlx.de" 
   )->send ($con);

 $con->reg_cb ( 
    ... 
    AnyEvent::XMPP::IM::Message->new (  
      ...  
   )->send ($con); 
);