X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FTak%2FRouter.pm;fp=lib%2FTak%2FRouter.pm;h=a8b071c545317ff709600a9c865de401781115df;hb=fe725d6e99834f26f20ce3f78eda9591c0d4a7d1;hp=5c2502b7eb017cb8881706da2ff545e314b36d5c;hpb=d69045fb49355f1a2d9472144b0f1417fb8d1122;p=scpubgit%2FTak.git

diff --git a/lib/Tak/Router.pm b/lib/Tak/Router.pm
index 5c2502b..a8b071c 100644
--- a/lib/Tak/Router.pm
+++ b/lib/Tak/Router.pm
@@ -42,4 +42,11 @@ sub deregister {
   delete $self->services->{$name}
 }
 
+sub clone {
+  my ($self) = @_;
+  my $new = (ref $self)->new(services => $self->services);
+  $new->register(meta => Tak::MetaService->new(router => $new));
+  $new;
+}
+
 1;