create world object, repl script

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

diff --git a/lib/Tak/Router.pm b/lib/Tak/Router.pm
index d48f28b..58b73bf 100644 (file)
--- a/lib/Tak/Router.pm
+++ b/lib/Tak/Router.pm
@@ -1,6 +1,7 @@
 package Tak::Router;
 
 use Tak::Request;
+use Tak::ServiceManager;
 use Moo;
 
 has channel => (is => 'ro', required => 1);
@@ -96,4 +97,11 @@ sub receive_response {
   $request->respond(@result);
 }
 
+sub register {
+  my ($self, $name, $service) = @_;
+  $self->local_request_handlers->{$name} = Tak::ServiceManager->new(
+    service => $service
+  );
+}
+
 1;