1 package Tak::ServiceManager;
5 has service => (is => 'ro', required => 1);
8 my ($self, $req, $type, @args) = @_;
10 $req->respond(MISTAKE => request_type => "No request type given");
13 my $service = $self->service;
14 if (my $meth = $service->can("handle_${type}")) {
15 $req->respond($service->$meth(@args));
18 $req->respond(MISTAKE => request_type => "Unknown request type ${type}");