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");
	if ($rpc_value) {
		print uwsgi::call('hello')."\n";
	}
	print 'pid '.$$."\n";
	return [
          '200',
          [ 'Content-Type' => 'text/plain' ],
          [ "Hello World\r\n", $env->{'REQUEST_URI'}, uwsgi::cache_get('key1'), uwsgi::call('hello') ],
	];
};