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