sub _launch_server {
my $self = shift;
+ my $synch_func = shift;
my $server = HTTPServer->new (LocalAddr => 'localhost',
LocalPort => '8080',
ReuseAddr => 1) or die "Cannot create server!!!";
- $server->run ($self->{_input});
+ $server->run ($self->{_input}, $synch_func);
}
1;