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