Commit | Line | Data |
---|---|---|
857f4834 | 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; |