do {
require Symbol;
my $a = bless({
_log => bless({
_body => "[info] *** Request 43063 (20.085/s) [50437] [Sun Dec 15 21:50:57 2019] ***\n[debug] Path is \"/\"\n[debug] Arguments are \"article/04/07/05/005246\"\n[debug] \"GET\" request for \"article/04/07/05/005246\" from \"127.0.0.1\"\n[debug] Rendering template \"story.tt\"\n[error] Caught exception in WWW::UsePerl::Server::Controller::Root->default \"Story 04/07/05/005246 not found at /Volumes/code_partition/use_perl_archive/WWW-UsePerl-Server-0.36/script/../lib/WWW/UsePerl/Server/Controller/Root.pm line 89.\"\n",
_psgi_errors => *main::STDERR,
abort => undef,
autoflush => 0,
level => 31,
}, "Catalyst::Log"),
_path => "article/04/07/05/005246",
_read_length => 0,
_read_position => 0,
_use_hash_multivalue => 0,
action => "/",
address => "127.0.0.1",
arguments => ["article", "04", "07", "05", "005246"],
base => bless(do{\(my $o = "http://localhost:3000/")}, "URI::http"),
body_parameters => {},
captures => [],
cookies => {},
data_handlers => {
"application/json" => sub { ... },
"application/x-www-form-urlencoded" => sub { ... },
},
env => {
"Catalyst.Stash.v2" => sub { ... },
"HTTP_ACCEPT" => "*/*",
"HTTP_HOST" => "localhost:3000",
"HTTP_USER_AGENT" => "curl/7.64.1",
"PATH_INFO" => "/article/04/07/05/005246",
"plack.original_request_method" => "GET",
"psgi.errors" => *main::STDERR,
"psgi.input" => \*HTTP::Server::PSGI::$input,
"psgi.multiprocess" => "",
"psgi.multithread" => "",
"psgi.nonblocking" => "",
"psgi.run_once" => "",
"psgi.streaming" => 1,
"psgi.url_scheme" => "http",
"psgi.version" => [1, 1],
"psgix.harakiri" => 1,
"psgix.input.buffered" => 1,
"psgix.io" => bless(Symbol::gensym(), "IO::Socket::INET"),
"QUERY_STRING" => "",
"REMOTE_ADDR" => "127.0.0.1",
"REMOTE_PORT" => 64162,
"REQUEST_METHOD" => "GET",
"REQUEST_URI" => "/article/04/07/05/005246",
"SCRIPT_NAME" => "",
"SERVER_NAME" => 0,
"SERVER_PORT" => 3000,
"SERVER_PROTOCOL" => "HTTP/1.1",
},
headers => bless({
"::std_case" => { cookie => "Cookie" },
"accept" => "*/*",
"host" => "localhost:3000",
"user-agent" => "curl/7.64.1",
}, "HTTP::Headers"),
match => "/",
method => "GET",
parameters => {},
protocol => "HTTP/1.1",
query_parameters => {},
remote_user => undef,
secure => 0,
uploads => {},
uri => bless(do{\(my $o = "http://localhost:3000/article/04/07/05/005246")}, "URI::http"),
}, "Catalyst::Request");
*{$a->{env}{"psgix.io"}} = {
io_socket_domain => 2,
io_socket_peername => pack("H*","1002faa27f0000010000000000000000"),
io_socket_proto => 6,
io_socket_timeout => undef,
io_socket_type => 1,
};
$a;
}
bless({
_log => bless({
_body => "[info] *** Request 43063 (20.085/s) [50437] [Sun Dec 15 21:50:57 2019] ***\n[debug] Path is \"/\"\n[debug] Arguments are \"article/04/07/05/005246\"\n[debug] \"GET\" request for \"article/04/07/05/005246\" from \"127.0.0.1\"\n[debug] Rendering template \"story.tt\"\n[error] Caught exception in WWW::UsePerl::Server::Controller::Root->default \"Story 04/07/05/005246 not found at /Volumes/code_partition/use_perl_archive/WWW-UsePerl-Server-0.36/script/../lib/WWW/UsePerl/Server/Controller/Root.pm line 89.\"\n",
_psgi_errors => *main::STDERR,
abort => undef,
autoflush => 0,
level => 31,
}, "Catalyst::Log"),
_response_cb => sub { ... },
body => "<!DOCTYPE html>\n<html lang=\"en\">\n <head>\n <meta charset=\"utf-8\">\n <title>use.perl.org story by : </title>\n <meta name=\"viewport\" content=\"width=device-width, initial-scale=1.0\">\n <meta name=\"description\" content=\"\">\n <meta name=\"author\" content=\"\">\n\n <!-- Le styles -->\n <link href=\"/static/css/bootstrap.css\" rel=\"stylesheet\">\n <style>\n body {\n padding-top: 60px; /* 60px to make the container go all the way to the\nbottom of the topbar */\n }\n </style>\n <link href=\"/static/css/bootstrap-responsive.css\" rel=\"stylesheet\">\n\n <!-- Le HTML5 shim, for IE6-8 support of HTML5 elements -->\n <!--[if lt IE 9]>\n <script\nsrc=\"http://html5shim.googlecode.com/svn/trunk/html5.js\"></script>\n <![endif]-->\n\n <!-- Le fav and touch icons -->\n <link rel=\"shortcut icon\" href=\"/static/ico/favicon.ico\">\n </head>\n\n <body>\n\n <div class=\"navbar navbar-fixed-top\">\n <div class=\"navbar-inner\">\n <div class=\"container\">\n <a class=\"btn btn-navbar\" data-toggle=\"collapse\"\ndata-target=\".nav-collapse\">\n <span class=\"icon-bar\"></span>\n <span class=\"icon-bar\"></span>\n <span class=\"icon-bar\"></span>\n </a>\n <a class=\"brand\" href=\"/\"><img src=\"/static/img/slashhead.png\"/></a>\n <div class=\"nav-collapse\">\n <ul class=\"nav\">\n <li><a href=\"/\">Home</a></li>\n <li><a href=\"/about/\">About</a></li>\n <li><a href=\"/authors/\">Authors</a></li>\n <li><a href=\"/journals/\">Journals</a></li>\n <li><a href=\"/stories/\">Stories</a></li>\n </ul>\n <p class=\"navbar-text\">All the Perl that's Practical to Extract and Report</p>\n </div><!--/.nav-collapse -->\n </div>\n </div>\n </div>\n\n\n\n<div class=\"container\">\n\n<div class=\"row\">\n\n<div class=\"span4\">\n<h1></h1>\n<h2><a href=\"/user//\"></a> on </h2>\n</div> <!-- /span4 -->\n\n\n<div class=\"span8\">\n<p></p>\n<p></p>\n\n\n\n\n\n</div> <!-- /span8 -->\n\n</div> <!-- row -->\n</div> <!-- /container -->\n\n\n\n <!-- Le javascript\n ================================================== -->\n <!-- Placed at the end of the document so the pages load faster -->\n\n </body>\n</html>\n\n",
cookies => {},
encodable_content_type => qr/text|xml$|javascript$/,
encoding => bless({ Name => "utf-8-strict", strict_utf8 => 1 }, "Encode::utf8"),
finalized_headers => 0,
headers => bless({
"::std_case" => { "x-catalyst" => "X-Catalyst" },
"content-type" => "text/html; charset=utf-8",
"x-catalyst" => 5.90124,
}, "HTTP::Headers"),
status => 200,
}, "Catalyst::Response")
do {
my $a = {
"Action::RenderView" => {
ignore_classes => [
"DBIx::Class::ResultSource::Table",
"DBIx::Class::ResultSourceHandle",
"DateTime",
],
scrubber_func => sub { ... },
},
"db_dsn" => "dbi:mysql:useperl",
"db_password" => "P\@55w0rd",
"db_user" => "useperl",
"disable_component_resolution_regex_fallback" => 1,
"enable_catalyst_header" => 1,
"home" => "/Volumes/code_partition/use_perl_archive/WWW-UsePerl-Server-0.36",
"name" => "WWW::UsePerl::Server",
"Plugin::ConfigLoader" => {},
"Plugin::Static::Simple" => {
debug => 1,
dirs => [],
ignore_dirs => [],
ignore_extensions => ["tmpl", "tt", "tt2", "html", "xhtml"],
include_path => [
bless({
dirs => [
"",
"Volumes",
"code_partition",
"use_perl_archive",
"WWW-UsePerl-Server-0.36",
"root",
],
file_spec_class => undef,
volume => "",
}, "Path::Class::Dir"),
],
mime_types => {},
mime_types_obj => bless({}, "MIME::Types"),
no_logs => 1,
},
"root" => 'fix',
"static" => 'fix',
};
$a->{"root"} = $a->{"Plugin::Static::Simple"}{include_path}[0];
$a->{"static"} = $a->{"Plugin::Static::Simple"};
$a;
}