only weaken when required
Matt S Trout [Tue, 29 Nov 2011 21:34:30 +0000 (21:34 +0000)]
lib/Tak/MetaService.pm

index 9706160..203f7af 100644 (file)
@@ -1,6 +1,7 @@
 package Tak::MetaService;
 
 use Tak::WeakClient;
+use Log::Contextual qw(:log);
 use Moo;
 
 with 'Tak::Role::Service';
@@ -22,14 +23,21 @@ sub handle_register {
   my ($self, $name, $class, %args) = @_;
   (my $file = $class) =~ s/::/\//g;
   require "${file}.pm";
+  my $router = $self->router;
   if (my $expose = delete $args{expose}) {
-    my $client = Tak::WeakClient->new(service => $self->router);
-    foreach my $name (%$expose) {
-      $args{$name} = $client->curry(@{$expose->{$name}});
+    foreach my $name (keys %$expose) {
+      if (my ($svc, @rest) = @{$expose->{$name}}) {
+        die "router has no service ${svc}"
+          unless my $service = $router->services->{$svc};
+        $args{$name} = Tak::Client->new(service => $service)
+                                  ->curry(@rest);
+      } else {
+        $args{$name} = Tak::WeakClient->new(service => $router);
+      }
     }
   }
   my $new = $class->new(\%args);
-  $self->router->register($name => $new);
+  $router->register($name => $new);
   return "Registered ${name}";
 }