Commit | Line | Data |
---|---|---|
857f4834 | 1 | package Tak::MetaService; |
2 | ||
3 | use Moo; | |
4 | ||
31a246e4 | 5 | with 'Tak::Role::Service'; |
6 | ||
857f4834 | 7 | has router => (is => 'ro', required => 1, weak_ref => 1); |
8 | ||
77bf1d9b | 9 | sub handle_pid { |
10 | return $$; | |
11 | } | |
12 | ||
857f4834 | 13 | sub handle_register { |
14 | my ($self, $name, $class, @args) = @_; | |
15 | (my $file = $class) =~ s/::/\//g; | |
16 | require "${file}.pm"; | |
17 | my $new = $class->new(@args); | |
18 | $self->router->register($name => $new); | |
31a246e4 | 19 | return "Registered ${name}"; |
857f4834 | 20 | } |
21 | ||
22 | 1; |