protect against re-upgrading

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

diff --git a/lib/Tak/MetaService.pm b/lib/Tak/MetaService.pm
index 62bafa8..9706160 100644 (file)
--- a/lib/Tak/MetaService.pm
+++ b/lib/Tak/MetaService.pm
@@ -11,6 +11,13 @@ sub handle_pid {
   return $$;
 }
 
+sub handle_ensure {
+  my $self = shift;
+  my ($name) = @_;
+  return "Already have ${name}" if $self->router->services->{$name};
+  $self->handle_register(@_);
+}
+
 sub handle_register {
   my ($self, $name, $class, %args) = @_;
   (my $file = $class) =~ s/::/\//g;