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

package Tak::MetaService;

use Moo;

has router => (is => 'ro', required => 1, weak_ref => 1);

sub handle_register {
  my ($self, $name, $class, @args) = @_;
  (my $file = $class) =~ s/::/\//g;
  require "${file}.pm";
  my $new = $class->new(@args);
  $self->router->register($name => $new);
  return SUCCESS => "Registered ${name}";
}

1;
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;