Accept error_cb parameter on Connection new()

Signed-off-by: Pedro Melo <melo@simplicidade.org>
This commit is contained in:
Pedro Melo
2014-07-20 13:43:00 +01:00
parent 9521132b8b
commit 15eef5072c

View File

@@ -41,7 +41,7 @@ sub new {
$self->{host} = delete $args{host} or croak q{FATAL: required 'host' parameter is missing};
$self->{port} = delete $args{port} or croak q{FATAL: required 'port' parameter is missing};
for my $p (qw( client_id hostname connect_cb )) {
for my $p (qw( client_id hostname connect_cb error_cb )) {
$self->{$p} = delete $args{$p} if exists $args{$p} and defined $args{$p};
}