lib/Tak/MetaService.pm

   1 package Tak::MetaService;
   2
   3 use Moo;
   4
   5 has router => (is => 'ro', required => 1, weak_ref => 1);
   6
   7 sub handle_register {
   8   my ($self, $name, $class, @args) = @_;
   9   (my $file = $class) =~ s/::/\//g;
  10   require "${file}.pm";
  11   my $new = $class->new(@args);
  12   $self->router->register($name => $new);
  13   return SUCCESS => "Registered ${name}";
  14 }
  15
  16 1;