use strict;
use warnings;

use AnyEvent::HTTPD;

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

my $requests = {};
my $requestCounter = 0;

$h->reg_cb (
    '/test' => sub {
        my ($httpd,$req) = @_;

        my $request = $requestCounter;
        $requestCounter++;

        print "Starting response for ", $req->{method}, " request $request\n";

        $req->respond(
            [200, 'ok',
                { 'Content-Type' => 'text/html'
                },
                '<h1>Test</h1>'
            ]);
    }
);

my $c = AnyEvent::condvar;
$c->recv();