Vany/ponch.pl

## ponch.pl
#!/usr/bin/perl

# sudo apt install libanyevent-httpd-perl libanyevent-forkobject-perl

use 5.014;
use lib qw(.);
use AnyEvent::HTTPD;
use AnyEvent::ForkObject;
use Getopt::Long;
use AnyEvent::Log;
$AnyEvent::Log::FILTER->level ("info");

use ponch;

our $port = 80;
GetOptions ("port=i" => \$port) or die("Error in command line arguments\n");

my $httpd = AnyEvent::HTTPD->new(port => $port);

my $fo = new AnyEvent::ForkObject;

$httpd->reg_cb (
    '/' => sub {
        my ($httpd, $req) = @_;
            $fo->do(module=>"ponch", method=>"DoSomething", args => [1,2,34,5], cb => sub {
                my ($stat, $res) = @_;
                $req->respond ([200, 'OK',  {'content-type' => 'text/html'},
                    "<html><body><h1>Hello World!</h1>"
                    . $res
                    . "</body></html>"
                ]);
                AE::log(warn => "serving 200 $req->{method} $req->{url}");
            });
   });


$httpd->run;

## ponch.pm
package ponch;

use 5.014;
use JSON::XS;

sub DoSomething {
    return encode_json({hello => "world", args => \@_});
}

1;
	#!/usr/bin/perl

	# sudo apt install libanyevent-httpd-perl libanyevent-forkobject-perl

	use 5.014;
	use lib qw(.);
	use AnyEvent::HTTPD;
	use AnyEvent::ForkObject;
	use Getopt::Long;
	use AnyEvent::Log;
	$AnyEvent::Log::FILTER->level ("info");

	use ponch;

	our $port = 80;
	GetOptions ("port=i" => \$port) or die("Error in command line arguments\n");

	my $httpd = AnyEvent::HTTPD->new(port => $port);

	my $fo = new AnyEvent::ForkObject;

	$httpd->reg_cb (
	'/' => sub {
	my ($httpd, $req) = @_;
	$fo->do(module=>"ponch", method=>"DoSomething", args => [1,2,34,5], cb => sub {
	my ($stat, $res) = @_;
	$req->respond ([200, 'OK', {'content-type' => 'text/html'},
	"<html><body><h1>Hello World!</h1>"
	. $res
	. "</body></html>"
	]);
	AE::log(warn => "serving 200 $req->{method} $req->{url}");
	});
	});


	$httpd->run;
	package ponch;

	use 5.014;
	use JSON::XS;

	sub DoSomething {
	return encode_json({hello => "world", args => \@_});
	}

	1;