I went back and looked at all the subroutines.
2 have $pkg as arg0 (event_loop() & new_server())
7 have $conn as arg0
3 don't take args
1 starts with the line: shift unless ref($_[0]); # shift if first arg is package name
So maybe the entire package is actually a class.
With 1 dodgy routine:
sub _new_client {
my $sock = $main_socket->accept();
my $conn = bless {
'sock' => $sock,
'state' => 'connected'
}, $g_pkg; #< different CLASSNAME
my $rcvd_notification_proc =
&$g_login_proc ($conn, $sock->peerhost(), $sock->peerport());
if ($rcvd_notification_proc) {
$conn->{rcvd_notification_proc} = $rcvd_notification_proc;
my $callback = sub {_rcv($conn,0)};
set_event_handler ($sock, "read" => $callback);
} else { # Login failed
$conn->disconnect();
}
}
It is always better to have seen your target for yourself, rather than depend upon someone else's description.
|