uwsgi/test.psgi

use strict;
use warnings;

my $rpc_value = uwsgi::call('hello', 'foo', 'bar', 'test');

if ($rpc_value) {
	print "rpc value = ".$rpc_value."\n";
}

my $app = sub {
      my $env = shift;
      uwsgi::cache_set("key1", "val1");
      print uwsgi::call('hello');
      return [
          '200',
          [ 'Content-Type' => 'text/plain' ],
          [ "Hello World\r\n", $env->{'REQUEST_URI'}, uwsgi::cache_get('key1'), uwsgi::call('hello') ],
      ];
};