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