1#!/usr/bin/perl -w 2 3# JSON-RPC Server (daemon version) 4 5use JSON::RPC::Server::Daemon; 6 7my $server = JSON::RPC::Server::Daemon->new(LocalPort => 8080); 8 9$server->dispatch_to({'/jsonrpc/API' => 'MyApp', '/jsonrpc/API/Subclass' => 'MyApp::Subclass'})->handle(); 10 11__END__ 12