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

Merge pull request #2 from tavaresb/master

Browse Source 
Bugfix: Connection callbacks
This commit is contained in:
Pedro Melo
2014-09-03 05:12:10 +01:00
parent e6cbc372cc 7b89af5b97
commit ad113aed07
1 changed files with 3 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -57,6 +57,9 @@ sub _parse_args {
$self->{disconnect_cb} = delete($args->{disconnect_cb}) || sub { }; $self->{disconnect_cb} = delete($args->{disconnect_cb}) || sub { };
$self->{error_cb} = delete($args->{error_cb}) || sub { croak($_[1]) }; $self->{error_cb} = delete($args->{error_cb}) || sub { croak($_[1]) };
$self->{connect_cb} = delete($args->{connect_cb}) || sub { };
$self->{identify_cb} = delete($args->{identify_cb}) || sub { };
for my $arg (qw( client_id hostname connect_timeout )) { for my $arg (qw( client_id hostname connect_timeout )) {
$self->{$arg} = delete($args->{$arg}) if exists $args->{$arg}; $self->{$arg} = delete($args->{$arg}) if exists $args->{$arg};
} }