server.cgi   [plain text]

#!/usr/bin/perl -w

# JSON-RPC Server (daemon version)

use strict;
use JSON::RPC::Server::CGI;

my $server = JSON::RPC::Server::CGI->new;

$server->dispatch_to({'/API' => 'MyApp', '/API/Subclass' => 'MyApp::Subclass'})->handle();


__END__