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 $env = shift;
|
||||
my $request = WebGUI::Request->new($env);
|
||||
my $response = $self->dispatch($request);
|
||||
return $response;
|
||||
|
||||
return sub {
|
||||
my $callback = shift;
|
||||
my $request = WebGUI::Request->new($env);
|
||||
my $response = $self->dispatch($request);
|
||||
$callback->($response);
|
||||
}
|
||||
};
|
||||
|
||||
my $config = $self->config;
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue