爲什麼Perl的Net :: Msmgr在我嘗試進行身份驗證時掛起？

Question

CPAN上有Net::Msmgr模塊。它寫得很乾淨，乍看之下代碼看起來很值得信賴。然而這個模塊似乎是β和很少有文檔和沒有測試： -/

有沒有人用在生產這種模塊？我還沒有設法讓它現在運行，因爲它需要在應用程序中完成所有的事件循環處理，正如我已經說過的，很少有文檔和沒有工作的例子來研究。

這就是我這麼遠了：

#!/usr/bin/perl 
use strict; 
use warnings; 

use Event; 
use Net::Msmgr::Object; 
use Net::Msmgr::Session; 
use Net::Msmgr::User; 

use constant DEBUG => 511; 
use constant EVENT_TIMEOUT => 5; # seconds 

my ($username, $password) = qw/my.username@live.com my.password/; 
my $buddy = 'your.username@live.com'; 

my $user = Net::Msmgr::User->new(user => $username, password => $password); 
my $session = Net::Msmgr::Session->new; 
$session->debug(DEBUG); 
$session->login_handler(\&login_handler); 
$session->user($user); 

my $conv; 

sub login_handler { 
    my $self = shift; 
    print "LOGIN\n"; 
    $self->ui_state_nln; 
    $conv = $session->ui_new_conversation; 
    $conv->invite($buddy); 
} 

our %watcher; 

sub ConnectHandler { 
    my ($connection) = @_; 
    warn "CONNECT\n"; 
    my $socket = $connection->socket; 
    $watcher{$connection} = Event->io(fd => $socket, 
             cb => [ $connection, '_recv_message' ], 
             poll => 're', 
             desc => 'recv_watcher', 
             repeat => 1); 
} 

sub DisconnectHandler { 
    my $connection = shift; 
    print "DISCONNECT\n"; 
    $watcher{$connection}->cancel; 
} 

$session->connect_handler(\&ConnectHandler); 
$session->disconnect_handler(\&DisconnectHandler); 

$session->Login; 

Event::loop(); 

這就是它輸出：

Dispatch Server connecting to: messenger.hotmail.com:1863 
Dispatch Server connected 
CONNECT 
Dispatch Server >>>VER 1 MSNP2 CVR0 
--> VER 1 MSNP2 CVR0 
Dispatch Server >>>USR 2 MD5 I my.username@live.com 
--> USR 2 MD5 I my.username@live.com 
Dispatch Server <<<VER 1 CVR0 
<-- VER 1 CVR0 

而這一切，在這裏死了。登錄處理程序不會被觸發。我究竟做錯了什麼？

Answer 1

希望這些文件將幫助你

1）Net::Msmgr documentation

2）Net::Msmgr::Session