dinislage/perl-anyevent-nsq
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Prepare Client.pm to use Lookupd

Browse Source 
Signed-off-by: Pedro Melo <melo@simplicidade.org>
This commit is contained in:
Pedro Melo
2014-09-19 13:53:47 +01:00
parent bb2aa6e247
commit 54c2964390
1 changed files with 18 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
lib/AnyEvent/NSQ/Client.pm
View File

@@ -10,6 +10,7 @@ use AnyEvent;
use AnyEvent::Socket (); use AnyEvent::Socket ();
use Carp 'croak'; use Carp 'croak';
use AnyEvent::NSQ::Connection; use AnyEvent::NSQ::Connection;
use AnyEvent::NSQ::Lookupd;
#### Public API #### Public API
@@ -109,7 +110,18 @@ sub _start_nsqd_connections {
} }
## nsqlookupd support - not there yet ## nsqlookupd support - not there yet
sub _start_lookupd_poolers { } sub _start_lookupd_poolers {
my ($self) = @_;
## FIXME: Given that topic is required, maybe this should move to Reader?
$self->{lookupd_poller} = AnyEvent::NSQ::Lookupd->new(
topic => $self->{topic},
lookupd_http_addresses => $self->{lookupd_http_addresses},
add_nsqd_cb => sub { $self->_start_nsqd_connection($_[2], nsqd_id => $_[1]) },
drop_nsqd_cb => sub { $self->_drop_nsqd_connection($_[1]) },
);
}
#### nsqd pool connection management #### nsqd pool connection management
@@ -138,6 +150,11 @@ sub _start_nsqd_connection {
return; return;
} }
## drop all connections for a specific nsqd
sub _drop_nsqd_connection {
}
## return one connection that is connected ## return one connection that is connected
sub _random_connected_conn { sub _random_connected_conn {
## FIXME: yeah, Sony-style random going on :) ## FIXME: yeah, Sony-style random going on :)