The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package TestApp::Controller::RPC;

use base 'Catalyst::Controller';

### accept every jsonrpc request here
sub my_dispatcher : JSONRPCRegex('.') {
    my( $self, $c ) = @_;
    ### return the name of the method you called
    $c->stash->{'jsonrpc'} = $c->request->jsonrpc->method;
}

1;