Delayed response

This commit is contained in:
Patrick Donelan 2010-04-06 21:00:56 -04:00
parent 191d4fc401
commit 217b486b03

View file

@ -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;