#!/usr/bin/env perl

package testAPI;

use base qw(JSON::RPC::Procedure);

sub echo : Public {
        my ($self, $data) = @_;
        return $data;
}

1;

use strict;
use warnings;
use JSON::RPC::Server::Daemon;

my $d = JSON::RPC::Server::Daemon->new(
        LocalAddr           => '127.0.0.1',
        LocalPort           => 4711,
        ReuseAddr           => 1,
        Timeout             => 30,
        SSL_use_cert    => 1,
        SSL_server              => 1,
        SSL_verify_mode => 0x03,
        SSL_ca_file             => "ssl/cacert.pem",
        SSL_cert_file   => "ssl/server-cert.pem",
        SSL_key_file    => "ssl/server-key.pem",
    SSL_passwd_cb   => sub { return 'system' },
);

$d->dispatch({
        '/json-rpc/API' => 'testAPI',
});

$d->handle();