[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_pid {
  return $$;
}

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);
857f4834	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;