Delayed response
This commit is contained in:
parent
191d4fc401
commit
217b486b03
1 changed files with 7 additions and 3 deletions
|
|
@ -86,9 +86,13 @@ sub compile_psgi_app {
|
||||||
|
|
||||||
my $app = sub {
|
my $app = sub {
|
||||||
my $env = shift;
|
my $env = shift;
|
||||||
my $request = WebGUI::Request->new($env);
|
|
||||||
my $response = $self->dispatch($request);
|
return sub {
|
||||||
return $response;
|
my $callback = shift;
|
||||||
|
my $request = WebGUI::Request->new($env);
|
||||||
|
my $response = $self->dispatch($request);
|
||||||
|
$callback->($response);
|
||||||
|
}
|
||||||
};
|
};
|
||||||
|
|
||||||
my $config = $self->config;
|
my $config = $self->config;
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue