serverd.pl   [plain text]

#!/usr/bin/perl -w

# JSON-RPC Server (daemon version)

use JSON::RPC::Server::Daemon;

my $server = JSON::RPC::Server::Daemon->new(LocalPort => 8080);

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

__END__