use
strict;
use
warnings;
use
HTTP::Async;
my
$q
= HTTP::Async->new;
use
FindBin;
require
TestServer;
# my $s = TestServer->new;
# my $url_root = $s->started_ok("starting a test server");
my
@servers
=
map
{ TestServer->new() } 1 .. 4;
foreach
my
$s
(
@servers
) {
my
$url_root
=
$s
->started_ok(
"starting a test server"
);
}