X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FWeb%2FSimple%2FApplication.pm;h=a6b1df4ed1c47e391010bf33c9c205a4076aec4e;hb=30e2c525d12f6b82eb3350583cabfc9dda8c5ae3;hp=235b8714e004cbce885837c27e9c0bdbacdabb27;hpb=66350cd3a6ce202b10e7ca403e83ae4c24995ba7;p=catagits%2FWeb-Simple.git diff --git a/lib/Web/Simple/Application.pm b/lib/Web/Simple/Application.pm index 235b871..a6b1df4 100644 --- a/lib/Web/Simple/Application.pm +++ b/lib/Web/Simple/Application.pm @@ -45,14 +45,14 @@ sub run_if_script { sub _run_cgi { my $self = shift; - require Plack::Server::CGI; - Plack::Server::CGI->run($self->to_psgi_app); + require Plack::Handler::CGI; + Plack::Handler::CGI->new->run($self->to_psgi_app); } sub _run_fcgi { my $self = shift; - require Plack::Server::FCGI; - Plack::Server::FCGI->run($self->to_psgi_app); + require Plack::Handler::FCGI; + Plack::Handler::FCGI->new->run($self->to_psgi_app); } sub to_psgi_app { @@ -269,12 +269,7 @@ calls ->new, or as an object method ... in which case it doesn't. =head2 run -Used for running your application under stand-alone CGI and FCGI modes. Also -useful for testing: - - my $app = MyWebSimpleApp::Web->new; - my $c = HTTP::Request::AsCGI->new(@args)->setup; - $app->run; +Used for running your application under stand-alone CGI and FCGI modes. =head1 AUTHORS