1 package Tak::Role::Service;
6 my ($self, $req, $type, @args) = @_;
8 $req->mistake(request_type => "No request type given");
11 if (my $meth = $self->can("handle_${type}")) {
13 if (eval { @result = $self->$meth(@args); 1 }) {
14 $req->success(@result);
16 if (ref($@) eq 'ARRAY') {
19 $req->failure(exception => $@);
23 $req->mistake(request_type => "Unknown request type ${type}");