/usr/local/CPAN/DJabberd/DJabberd/Connection/ClusterOut.pm

• package DJabberd::Connection::ClusterOut
  • on_connected
  • event_read
• EOF

# outgoing connection to another server in our domain
package DJabberd::Connection::ClusterOut;
use strict;
use base 'DJabberd::Connection::ServerOut';
use Carp qw(croak);

sub on_connected {
    my $self = shift;
    # TODO:
    #   start binary protocol

}

sub event_read {
    # ... read binary protocol
}

1;