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 request $request\n";
		
		$requests->{$request}->{'state'} = 'new';

        $req->respond({
            content => ['text/plain', sub {
                my ($data_cb) = @_;
				return unless $data_cb;
				
				if (($requests->{$request}->{'state'} // 0) ne 'new')
				{
					$data_cb->();
					return;
				}
				$requests->{$request}->{'state'} = 'handled';
				
                print "Setting timer for $request...\n";
                $requests->{$request}->{'timer'} = AnyEvent->timer(after => 3, cb => sub { 
                    print "Sending response for $request...\n";
                    $data_cb->("You are request $request");
                    $data_cb->();
					delete $requests->{$request};
					return;
                    });
                }]
            });
        },
    );

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