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

package Tak::MetaService;

use Moo;

with 'Tak::Role::Service';

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 "Registered ${name}";
}

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