Devel-StackTrace-AsHTML
view release on metacpan or search on metacpan
eg/output.html view on Meta::CPAN
bitmask => "UUUUUUUUUUUU\25",
evaltext => undef,
filename => "lib/Plack/Middleware.pm",
hasargs => 1,
hints => 2,
is_require => undef,
lexicals => { "\$self" => \do{my $fix} },
line => 26,
max_arg_length => undef,
"package" => "Plack::Middleware",
respect_overload => undef,
subroutine => "Plack::Middleware::ContentLength::call",
"wantarray" => 0,
}, "Devel::StackTrace::WithLexicals::Frame"),
bless({
args => ['fix'],
bitmask => "\0\0\0\0\0\0\0\0\0\0\0\0",
evaltext => undef,
filename => "lib/Plack/Util.pm",
hasargs => 1,
hints => 2,
is_require => undef,
lexicals => { "\$app" => \sub { "???" }, "\$env" => \do{my $fix} },
line => 107,
max_arg_length => undef,
"package" => "Plack::Util",
respect_overload => undef,
subroutine => "Plack::Middleware::__ANON__",
"wantarray" => 0,
}, "Devel::StackTrace::WithLexicals::Frame"),
bless({
args => [],
bitmask => "\0\0\0\0\0\0\0\0\0\0\0\0",
evaltext => undef,
filename => "lib/Plack/Util.pm",
hasargs => 0,
hints => 2,
is_require => undef,
lexicals => undef,
line => 107,
max_arg_length => undef,
"package" => "Plack::Util",
respect_overload => undef,
subroutine => "(eval)",
"wantarray" => 0,
}, "Devel::StackTrace::WithLexicals::Frame"),
bless({
args => ['fix', 'fix'],
bitmask => "UUUUUUUUUUUU\25",
evaltext => undef,
filename => "lib/Plack/Server/Standalone.pm",
hasargs => 1,
hints => 2,
is_require => undef,
lexicals => {
"\$app" => \do{my $fix},
"\$buf" => \"",
"\$conn" => \bless(Symbol::gensym(), "IO::Socket::INET"),
"\$env" => \do{my $fix},
"\$input" => \do{my $fix},
"\$is_keepalive" => \1,
"\$reqlen" => \145,
"\$res" => \[400, ["Content-Type", "text/plain"], ["Bad Request"]],
"\$rlen" => \145,
"\$self" => \bless({
host => 0,
keepalive_timeout => 2,
listen_sock => bless(Symbol::gensym(), "IO::Socket::INET"),
max_keepalive_reqs => 100,
port => 8080,
timeout => 300,
}, "Plack::Server::Standalone"),
"\$use_keepalive" => \undef,
},
line => 153,
max_arg_length => undef,
"package" => "Plack::Server::Standalone",
respect_overload => undef,
subroutine => "Plack::Util::run_app",
"wantarray" => 0,
}, "Devel::StackTrace::WithLexicals::Frame"),
bless({
args => ['fix', 'fix', 'fix', 'fix', 1, 1],
bitmask => "UUUUUUUUUUUU\25",
evaltext => undef,
filename => "lib/Plack/Server/Standalone.pm",
hasargs => 1,
hints => 2,
is_require => undef,
lexicals => {
"\$app" => \do{my $fix},
"\$conn" => \do{my $fix},
"\$env" => \do{my $fix},
"\$max_reqs_per_child" => \undef,
"\$may_keepalive" => \1,
"\$proc_req_count" => \5,
"\$req_count" => \1,
"\$self" => \do{my $fix},
},
line => 111,
max_arg_length => undef,
"package" => "Plack::Server::Standalone",
respect_overload => undef,
subroutine => "Plack::Server::Standalone::handle_connection",
"wantarray" => 0,
}, "Devel::StackTrace::WithLexicals::Frame"),
bless({
args => ['fix', 'fix'],
bitmask => "UUUUUUUUUUUU\25",
evaltext => undef,
filename => "lib/Plack/Server/Standalone.pm",
hasargs => 1,
hints => 2,
is_require => undef,
lexicals => { "\$app" => \do{my $fix}, "\$self" => \do{my $fix} },
line => 62,
max_arg_length => undef,
"package" => "Plack::Server::Standalone",
respect_overload => undef,
subroutine => "Plack::Server::Standalone::accept_loop",
"wantarray" => undef,
}, "Devel::StackTrace::WithLexicals::Frame"),
bless({
args => ['fix', 'fix'],
bitmask => "\0\0\0\0\0\0\0\0\0\0\0\0",
evaltext => undef,
filename => "scripts/plackup",
hasargs => 1,
hints => 2,
is_require => undef,
lexicals => {
"\$app" => \"eg/dot-psgi/error.psgi",
"\$env" => \"development",
"\$handler" => \do{my $fix},
"\$help" => \0,
"\$server" => \do{my $fix},
"\@args" => [],
"\@includes" => [],
},
line => 42,
max_arg_length => undef,
"package" => "main",
respect_overload => undef,
subroutine => "Plack::Server::Standalone::run",
"wantarray" => undef,
}, "Devel::StackTrace::WithLexicals::Frame"),
],
"index" => 2,
}, "Devel::StackTrace::WithLexicals");
${$a->{frames}[0]{lexicals}{"\$trace"}} = $a;
$a->{frames}[2]{args}[0] = ${$a->{frames}[0]{lexicals}{"\$env"}};
$a->{frames}[2]{lexicals}{"\$env"} = $a->{frames}[0]{lexicals}{"\$env"};
$a->{frames}[2]{lexicals}{"\$self"} = $a->{frames}[0]{lexicals}{"\$self"};
$a->{frames}[2]{lexicals}{"\$trace"} = $a->{frames}[0]{lexicals}{"\$trace"};
$a->{frames}[4]{args}[0] = ${$a->{frames}[0]{lexicals}{"\$self"}};
eg/output.html view on Meta::CPAN
REQUEST_URI => "/",
SCRIPT_NAME => "",
SERVER_NAME => 0,
SERVER_PORT => 8080,
SERVER_PROTOCOL => "HTTP/1.1",
"psgi.errors" => *main::STDERR,
"psgi.input" => \*Plack::Server::Standalone::$input,
"psgi.multiprocess" => "",
"psgi.multithread" => "",
"psgi.run_once" => "",
"psgi.url_scheme" => "http",
"psgi.version" => [1, 0],
};
</pre></body></html></li><li>in (eval) at lib/Plack/Util.pm line 107<pre class="context"><code> 104: sub run_app($$) {
105: my($app, $env) = @_;
106:
<strong class="match"> 107: local $@; my $res = eval { $app->($env) };
</strong> 108: if ($@) {
109: my $body = "Internal Server Error";
110: $env->{'psgi.errors'}->print($@);
</code></pre><p><a class="toggle" href="javascript:showLexicals('lexicals-10')">Show lexical variables</a></p><pre class="lexicals" id="lexicals-10"></pre></body></html></li><li>in Plack::Util::run_app at lib/Plack/Server/Standalone.pm line 153<pre c...
151: open my $input, "<", \$buf;
152: $env->{'psgi.input'} = $input;
<strong class="match"> 153: $res = Plack::Util::run_app $app, $env;
</strong> 154: last;
155: }
156: if ($reqlen == -2) {
</code></pre><p><a class="toggle" href="javascript:showLexicals('lexicals-11')">Show lexical variables</a></p><pre class="lexicals" id="lexicals-11">my $app = sub { "???" };
my $buf = "";
my $conn = do {
require Symbol;
my $a = bless(Symbol::gensym(), "IO::Socket::INET");
*{$a} = {
io_socket_peername => pack("H*","1002c5c57f0000010000000000000000"),
io_socket_timeout => undef,
};
$a;
};
my $env = {
HTTP_ACCEPT => "*/*",
HTTP_HOST => "localhost:8080",
HTTP_USER_AGENT => "curl/7.16.3 (powerpc-apple-darwin9.0) libcurl/7.16.3 OpenSSL/0.9.7l zlib/1.2.3",
PATH_INFO => "/",
QUERY_STRING => "",
REMOTE_ADDR => "127.0.0.1",
REQUEST_METHOD => "GET",
REQUEST_URI => "/",
SCRIPT_NAME => "",
SERVER_NAME => 0,
SERVER_PORT => 8080,
SERVER_PROTOCOL => "HTTP/1.1",
"psgi.errors" => *main::STDERR,
"psgi.input" => \*Plack::Server::Standalone::$input,
"psgi.multiprocess" => "",
"psgi.multithread" => "",
"psgi.run_once" => "",
"psgi.url_scheme" => "http",
"psgi.version" => [1, 0],
};
my $input = \*Plack::Server::Standalone::$input;
my $is_keepalive = 1;
my $reqlen = 145;
my $res = [400, ["Content-Type", "text/plain"], ["Bad Request"]];
my $rlen = 145;
my $self = do {
require Symbol;
my $a = bless({
host => 0,
keepalive_timeout => 2,
listen_sock => bless(Symbol::gensym(), "IO::Socket::INET"),
max_keepalive_reqs => 100,
port => 8080,
timeout => 300,
}, "Plack::Server::Standalone");
*{$a->{listen_sock}} = {
io_socket_domain => 2,
io_socket_proto => 6,
io_socket_timeout => undef,
io_socket_type => 1,
};
$a;
};
my $use_keepalive = undef;
</pre></body></html></li><li>in Plack::Server::Standalone::handle_connection at lib/Plack/Server/Standalone.pm line 111<pre class="context"><code> 108: if ($may_keepalive && $max_reqs_per_child && $proc_req_count >...
109: $may_keepalive = undef;
110: }
<strong class="match"> 111: $self->handle_connection($env, $conn, $app, $may_keepalive, $req_count != 0)
</strong> 112: or last;
113: # TODO add special cases for clients with broken keep-alive support, as well as disabling keep-alive for HTTP/1.0 proxies
114: }
</code></pre><p><a class="toggle" href="javascript:showLexicals('lexicals-12')">Show lexical variables</a></p><pre class="lexicals" id="lexicals-12">my $app = sub { "???" };
my $conn = do {
require Symbol;
my $a = bless(Symbol::gensym(), "IO::Socket::INET");
*{$a} = {
io_socket_peername => pack("H*","1002c5c57f0000010000000000000000"),
io_socket_timeout => undef,
};
$a;
};
my $env = {
HTTP_ACCEPT => "*/*",
HTTP_HOST => "localhost:8080",
HTTP_USER_AGENT => "curl/7.16.3 (powerpc-apple-darwin9.0) libcurl/7.16.3 OpenSSL/0.9.7l zlib/1.2.3",
PATH_INFO => "/",
QUERY_STRING => "",
REMOTE_ADDR => "127.0.0.1",
REQUEST_METHOD => "GET",
REQUEST_URI => "/",
SCRIPT_NAME => "",
SERVER_NAME => 0,
SERVER_PORT => 8080,
SERVER_PROTOCOL => "HTTP/1.1",
"psgi.errors" => *main::STDERR,
"psgi.input" => \*Plack::Server::Standalone::$input,
"psgi.multiprocess" => "",
"psgi.multithread" => "",
"psgi.run_once" => "",
"psgi.url_scheme" => "http",
"psgi.version" => [1, 0],
};
my $max_reqs_per_child = undef;
my $may_keepalive = 1;
my $proc_req_count = 5;
my $req_count = 1;
my $self = do {
require Symbol;
my $a = bless({
host => 0,
keepalive_timeout => 2,
listen_sock => bless(Symbol::gensym(), "IO::Socket::INET"),
max_keepalive_reqs => 100,
port => 8080,
timeout => 300,
}, "Plack::Server::Standalone");
*{$a->{listen_sock}} = {
io_socket_domain => 2,
io_socket_proto => 6,
io_socket_timeout => undef,
io_socket_type => 1,
};
$a;
};
</pre></body></html></li><li>in Plack::Server::Standalone::accept_loop at lib/Plack/Server/Standalone.pm line 62<pre class="context"><code> 59: sub run {
60: my($self, $app) = @_;
61: $self->setup_listener();
<strong class="match"> 62: $self->accept_loop($app);
</strong> 63: }
64:
65: sub setup_listener {
</code></pre><p><a class="toggle" href="javascript:showLexicals('lexicals-13')">Show lexical variables</a></p><pre class="lexicals" id="lexicals-13">my $app = sub { "???" };
my $self = do {
require Symbol;
my $a = bless({
host => 0,
keepalive_timeout => 2,
listen_sock => bless(Symbol::gensym(), "IO::Socket::INET"),
max_keepalive_reqs => 100,
port => 8080,
timeout => 300,
}, "Plack::Server::Standalone");
*{$a->{listen_sock}} = {
io_socket_domain => 2,
io_socket_proto => 6,
io_socket_timeout => undef,
io_socket_type => 1,
};
$a;
};
</pre></body></html></li><li>in Plack::Server::Standalone::run at scripts/plackup line 42<pre class="context"><code> 39:
40: my @args = map { s/^--//; split /=/, $_ } @ARGV;
41: my $server = Plack::Loader->auto(@args);
<strong class="match"> 42: $server->run($handler);
</strong> 43:
44: __END__
45:
</code></pre><p><a class="toggle" href="javascript:showLexicals('lexicals-14')">Show lexical variables</a></p><pre class="lexicals" id="lexicals-14">my $app = "eg/dot-psgi/error.psgi";
my $env = "development";
my $handler = sub { "???" };
my $help = 0;
my $server = do {
require Symbol;
my $a = bless({
host => 0,
keepalive_timeout => 2,
listen_sock => bless(Symbol::gensym(), "IO::Socket::INET"),
max_keepalive_reqs => 100,
port => 8080,
timeout => 300,
}, "Plack::Server::Standalone");
*{$a->{listen_sock}} = {
io_socket_domain => 2,
io_socket_proto => 6,
io_socket_timeout => undef,
io_socket_type => 1,
};
$a;
};
my @args = ();
my @includes = ();
</pre></body></html></li></ol>
( run in 1.102 second using v1.01-cache-2.11-cpan-39bf76dae61 )