Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

update CGI::App example

  • Loading branch information...
commit 421a70734b00af527eb3a8b31e2c68fcacd84f09 1 parent 1500e2f
@miyagawa miyagawa authored yanick committed
Showing with 2 additions and 5 deletions.
  1. +2 −5 lib/CGI/PSGI.pm
View
7 lib/CGI/PSGI.pm
@@ -52,18 +52,15 @@ reference during the lifetime of your application.
For instance with L<CGI::Application>,
use MyApp; # is a CGI::Application app
+ use CGI::Application::PSGI;
- use CGI::PSGI;
my $app = sub {
my $env = shift;
local *ENV = $env;
$ENV{CGI_APP_RETURN_ONLY} = 1;
my $webapp = MyApp->new;
- my $body = $webapp->run;
-
- my($status, $header) = $webapp->query->header;
- return [ $status, $header, [ $body ] ];
+ CGI::Application::PSGI->run($webapp);
};
=head1 AUTHOR

0 comments on commit 421a707

Please sign in to comment.
Something went wrong with that request. Please try again.