#!/usr/bin/perl
 #--------------------------
 # In your application class
 package MyApp;

 sub own_method { # called by clients
     my ($server, @params) = @_; # $server is JSONRPC object.
     return 5;
     # return a scalar value or a hashref or an arryaref.
 }

1;