Initial script infrastructure

[scpubgit/Tak.git] / lib / Tak / ConnectionService.pm

diff --git a/lib/Tak/ConnectionService.pm b/lib/Tak/ConnectionService.pm
index 6390e80..f947851 100644 (file)
--- a/lib/Tak/ConnectionService.pm
+++ b/lib/Tak/ConnectionService.pm
@@ -15,7 +15,8 @@ sub BUILD {
   );
   my $receiver = $self->_set_receiver(
     Tak::ConnectionReceiver->new(
-      channel => $channel, service => $args->{listening_service}
+      channel => $channel, service => $args->{listening_service},
+      on_close => $args->{on_close},
     )
   );
 }