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

Tidy

Browse Source 
Signed-off-by: Pedro Melo <melo@simplicidade.org>
This commit is contained in:
Pedro Melo
2014-10-23 07:08:45 +01:00
parent a08049ee0f
commit dca911fee8
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -65,8 +65,8 @@ 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->{connect_cb} = delete($args->{connect_cb}) || sub { };
$self->{identify_cb} = delete($args->{identify_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};