view release on metacpan or  search on metacpan

lib/DJabberd/Queue/ClusterOut.pm  view on Meta::CPAN

package DJabberd::Queue::ClusterOut;
use strict;
use warnings;
use base 'DJabberd::Queue';
use DJabberd::Queue qw();
use DJabberd::Connection::ClusterOut;

use DJabberd::Log;

our $logger = DJabberd::Log->get_logger;

sub new {
    my ($class, %opts) = @_;
    my $self = bless {}, $class;
    $self->{endpt}    = delete $opts{endpoint} or die "endpoint required";
    $self->{vhost}    = delete $opts{vhost}  or die "vhost required";
    $logger->debug("Creating new server out queue for vhost '" . $self->{vhost}->name . "' to domain '$self->{domain}'.");

    return $self;
}


1;