Skip to content

Instantly share code, notes, and snippets.

@leedo

leedo/test.psgi

Created November 12, 2012 01:03
Show Gist options
  • Save leedo/4056999 to your computer and use it in GitHub Desktop.
Save leedo/4056999 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.txt
[leedo@trillian ~]$ plackup -MCarp::Always test.pl
HTTP::Server::PSGI: Accepting connections at http://0:5000/
EV: error in callback (ignoring): Not a CODE reference at /Users/leedo/perl5/perlbrew/perls/perl-5.16.2/lib/site_perl/5.16.2/darwin-2level/EV.pm line 1192.
EV::__ANON__() called at /Users/leedo/perl5/perlbrew/perls/perl-5.16.2/lib/site_perl/5.16.2/darwin-2level/AnyEvent/Impl/EV.pm line 88
eval {...} called at /Users/leedo/perl5/perlbrew/perls/perl-5.16.2/lib/site_perl/5.16.2/darwin-2level/AnyEvent/Impl/EV.pm line 88
AnyEvent::CondVar::Base::_wait('AnyEvent::CondVar=HASH(0x7ffa5bb895c0)') called at /Users/leedo/perl5/perlbrew/perls/perl-5.16.2/lib/site_perl/5.16.2/darwin-2level/AnyEvent.pm line 1981
AnyEvent::CondVar::Base::recv('AnyEvent::CondVar=HASH(0x7ffa5bb895c0)') called at /Users/leedo/perl5/perlbrew/perls/perl-5.16.2/lib/site_perl/5.16.2/Plack/App/Proxy/Backend/AnyEvent/HTTP.pm line 60
Plack::App::Proxy::Backend::AnyEvent::HTTP::__ANON__('HASH(0x7ffa5baf3738)') called at /Users/leedo/perl5/perlbrew/perls/perl-5.16.2/lib/site_perl/5.16.2/Web/Dispatch.pm line 46
Web::Dispatch::_dispatch('Web::Dispatch=HASH(0x7ffa5ba26998)', 'HASH(0x7ffa5baf3738)', 'CODE(0x7ffa5bbcdd38)') called at /Users/leedo/perl5/perlbrew/perls/perl-5.16.2/lib/site_perl/5.16.2/Web/Dispatch.pm line 58
Web::Dispatch::__ANON__('HASH(0x7ffa5baf3738)') called at /Users/leedo/perl5/perlbrew/perls/perl-5.16.2/lib/site_perl/5.16.2/Web/Dispatch.pm line 46
Web::Dispatch::_dispatch('Web::Dispatch=HASH(0x7ffa5ba26998)', 'HASH(0x7ffa5baf3738)', 'Plack::App::Proxy=HASH(0x7ffa5ba263e8)') called at /Users/leedo/perl5/perlbrew/perls/perl-5.16.2/lib/site_perl/5.16.2/Web/Dispatch.pm line 58
Web::Dispatch::__ANON__('HASH(0x7ffa5baf3738)') called at /Users/leedo/perl5/perlbrew/perls/perl-5.16.2/lib/site_perl/5.16.2/Web/Dispatch.pm line 46
Web::Dispatch::_dispatch('Web::Dispatch=HASH(0x7ffa5ba26998)', 'HASH(0x7ffa5ba78f98)', 'HASH(0x7ffa5baf2888)', 'CODE(0x7ffa5baf26d8)') called at /Users/leedo/perl5/perlbrew/perls/perl-5.16.2/lib/site_perl/5.16.2/Web/Dispatch.pm line 58
Web::Dispatch::__ANON__('HASH(0x7ffa5ba78f98)', 'CODE(0x7ffa5ba25160)', 'ARRAY(0x7ffa5bad4e98)') called at /Users/leedo/perl5/perlbrew/perls/perl-5.16.2/lib/site_perl/5.16.2/Web/Dispatch.pm line 46
Web::Dispatch::_dispatch('Web::Dispatch=HASH(0x7ffa5ba26998)', 'HASH(0x7ffa5ba78f98)', 'CODE(0x7ffa5baf63c8)', 'CODE(0x7ffa5ba25160)', 'ARRAY(0x7ffa5bad4e98)') called at /Users/leedo/perl5/perlbrew/perls/perl-5.16.2/lib/site_perl/5.16.2/Web/Dispatch.pm line 58
Web::Dispatch::__ANON__('HASH(0x7ffa5ba78f98)') called at /Users/leedo/perl5/perlbrew/perls/perl-5.16.2/lib/site_perl/5.16.2/Web/Dispatch.pm line 46
Web::Dispatch::_dispatch('Web::Dispatch=HASH(0x7ffa5ba26998)', 'HASH(0x7ffa5ba78f98)', 'CODE(0x7ffa5bace018)') called at /Users/leedo/perl5/perlbrew/perls/perl-5.16.2/lib/site_perl/5.16.2/Web/Dispatch.pm line 31
Web::Dispatch::call('Web::Dispatch=HASH(0x7ffa5ba26998)', 'HASH(0x7ffa5ba78f98)') called at /Users/leedo/perl5/perlbrew/perls/perl-5.16.2/lib/site_perl/5.16.2/Web/Dispatch/ToApp.pm line 9
Web::Dispatch::ToApp::__ANON__('HASH(0x7ffa5ba78f98)') called at /Users/leedo/perl5/perlbrew/perls/perl-5.16.2/lib/site_perl/5.16.2/Plack/Middleware/Lint.pm line 24
Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x7ffa5b962968)', 'HASH(0x7ffa5ba78f98)') called at /Users/leedo/perl5/perlbrew/perls/perl-5.16.2/lib/site_perl/5.16.2/Plack/Component.pm line 39
Plack::Component::__ANON__('HASH(0x7ffa5ba78f98)') called at /Users/leedo/perl5/perlbrew/perls/perl-5.16.2/lib/site_perl/5.16.2/Plack/Middleware/StackTrace.pm line 31
Plack::Middleware::StackTrace::__ANON__() called at /Users/leedo/perl5/perlbrew/perls/perl-5.16.2/lib/site_perl/5.16.2/Try/Tiny.pm line 71
eval {...} called at /Users/leedo/perl5/perlbrew/perls/perl-5.16.2/lib/site_perl/5.16.2/Try/Tiny.pm line 67
Try::Tiny::try('CODE(0x7ffa5baedd50)', 'Try::Tiny::Catch=REF(0x7ffa5baedea0)') called at /Users/leedo/perl5/perlbrew/perls/perl-5.16.2/lib/site_perl/5.16.2/Plack/Middleware/StackTrace.pm line 35
Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x7ffa5bae77a8)', 'HASH(0x7ffa5ba78f98)') called at /Users/leedo/perl5/perlbrew/perls/perl-5.16.2/lib/site_perl/5.16.2/Plack/Component.pm line 39
Plack::Component::__ANON__('HASH(0x7ffa5ba78f98)') called at /Users/leedo/perl5/perlbrew/perls/perl-5.16.2/lib/site_perl/5.16.2/Plack/Middleware/AccessLog.pm line 29
Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x7ffa5bae7958)', 'HASH(0x7ffa5ba78f98)') called at /Users/leedo/perl5/perlbrew/perls/perl-5.16.2/lib/site_perl/5.16.2/Plack/Component.pm line 39
Plack::Component::__ANON__('HASH(0x7ffa5ba78f98)') called at /Users/leedo/perl5/perlbrew/perls/perl-5.16.2/lib/site_perl/5.16.2/Plack/Middleware/ContentLength.pm line 10
Plack::Middleware::ContentLength::call('Plack::Middleware::ContentLength=HASH(0x7ffa5ba74300)', 'HASH(0x7ffa5ba78f98)') called at /Users/leedo/perl5/perlbrew/perls/perl-5.16.2/lib/site_perl/5.16.2/Plack/Component.pm line 39
Plack::Component::__ANON__('HASH(0x7ffa5ba78f98)') called at /Users/leedo/perl5/perlbrew/perls/perl-5.16.2/lib/site_perl/5.16.2/Plack/Util.pm line 143
eval {...} called at /Users/leedo/perl5/perlbrew/perls/perl-5.16.2/lib/site_perl/5.16.2/Plack/Util.pm line 143
Plack::Util::run_app('CODE(0x7ffa5bae7c28)', 'HASH(0x7ffa5ba78f98)') called at /Users/leedo/perl5/perlbrew/perls/perl-5.16.2/lib/site_perl/5.16.2/HTTP/Server/PSGI.pm line 170
HTTP::Server::PSGI::handle_connection('HTTP::Server::PSGI=HASH(0x7ffa5bae7b38)', 'HASH(0x7ffa5ba78f98)', 'IO::Socket::INET=GLOB(0x7ffa5bae7ac0)', 'CODE(0x7ffa5bae7c28)') called at /Users/leedo/perl5/perlbrew/perls/perl-5.16.2/lib/site_perl/5.16.2/HTTP/Server/PSGI.pm line 129
HTTP::Server::PSGI::accept_loop('HTTP::Server::PSGI=HASH(0x7ffa5bae7b38)', 'CODE(0x7ffa5bae78f8)') called at /Users/leedo/perl5/perlbrew/perls/perl-5.16.2/lib/site_perl/5.16.2/HTTP/Server/PSGI.pm line 55
HTTP::Server::PSGI::run('HTTP::Server::PSGI=HASH(0x7ffa5bae7b38)', 'CODE(0x7ffa5bae78f8)') called at /Users/leedo/perl5/perlbrew/perls/perl-5.16.2/lib/site_perl/5.16.2/Plack/Handler/HTTP/Server/PSGI.pm line 14
Plack::Handler::HTTP::Server::PSGI::run('Plack::Handler::Standalone=HASH(0x7ffa5baede70)', 'CODE(0x7ffa5bae78f8)') called at /Users/leedo/perl5/perlbrew/perls/perl-5.16.2/lib/site_perl/5.16.2/Plack/Loader.pm line 84
Plack::Loader::run('Plack::Loader=HASH(0x7ffa5b888f00)', 'Plack::Handler::Standalone=HASH(0x7ffa5baede70)') called at /Users/leedo/perl5/perlbrew/perls/perl-5.16.2/lib/site_perl/5.16.2/Plack/Runner.pm line 277
Plack::Runner::run('Plack::Runner=HASH(0x7ffa5b8298c8)') called at /Users/leedo/perl5/perlbrew/perls/perl-5.16.2/bin/plackup line 10
Raw
test.psgi
#!/usr/bin/env perl
package HelloWorld;
use Web::Simple;
use Plack::App::Proxy;
my $proxy = Plack::App::Proxy->new(remote => "http://www.amazon.com");
sub dispatch_request {
sub (GET) {
$proxy->to_app;
},
sub () {
[ 405, [ 'Content-type', 'text/plain' ], [ 'Method not allowed' ] ]
}
}
HelloWorld->run_if_script;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment