R
$VAR1 = [
[
'accept',
'*/*'
],
[
'accept_encoding',
'gzip, br, zstd, deflate'
],
[
'accept_language',
undef
],
[
'args',
''
],
[
'as_string',
'GET /method_test_psgi.psp HTTP/1.1
Connection: Keep-Alive
Accept: */*
Accept-Encoding: gzip, br, zstd, deflate
Host: 127.0.0.1:5000
User-Agent: Mozilla/5.0 AppleWebKit/537.36 (KHTML, like Gecko; compatible; ClaudeBot/1.0; +claudebot@anthropic.com)
X-Forwarded-For: 216.73.216.5
X-Forwarded-Host: psgi.isolutions.com.au
X-Forwarded-Server: psgi.isolutions.com.au
'
],
[
'authority',
'127.0.0.1:5000'
],
[
'authorization',
undef
],
[
'auth_type',
undef
],
[
'base',
bless( do{\(my $o = 'http://127.0.0.1:5000/')}, 'URI::http' )
],
[
'base_url',
bless( do{\(my $o = 'http://127.0.0.1:5000/')}, 'URI::http' )
],
[
'body',
undef
],
[
'body_handle',
\*{'HTTP::Server::PSGI::$input'}
],
[
'cache_control',
undef
],
[
'charset',
''
],
[
'cleanup_register',
1
],
[
'client_address',
'127.0.0.1'
],
[
'content',
$VAR1->[11][1]
],
[
'content_encoding',
undef
],
[
'content_length',
undef
],
[
'content_type',
'text/html'
],
[
'cookie',
{}
],
[
'cookies',
{}
],
[
'custom_response',
undef
],
[
'cwd',
'/home/aspeer/Development/pm-WebDyne/'
],
[
'dir_config',
{
'/examples' => {
'WebDyneChain' => 'WebDyne::Filter',
'WebDyneFilterResponse' => sub { "DUMMY" },
'WebDyneHandler' => 'WebDyne::Chain'
},
'WEBDYNE_DEBUG' => '1',
'WEBDYNE_ERROR_TEXT' => '1'
}
],
[
'document_root',
'/home/aspeer/Development/pm-WebDyne'
],
[
'env',
{
'HTTP_ACCEPT' => '*/*',
'HTTP_ACCEPT_ENCODING' => 'gzip, br, zstd, deflate',
'HTTP_CONNECTION' => 'Keep-Alive',
'HTTP_HOST' => '127.0.0.1:5000',
'HTTP_USER_AGENT' => 'Mozilla/5.0 AppleWebKit/537.36 (KHTML, like Gecko; compatible; ClaudeBot/1.0; +claudebot@anthropic.com)',
'HTTP_X_FORWARDED_FOR' => '216.73.216.5',
'HTTP_X_FORWARDED_HOST' => 'psgi.isolutions.com.au',
'HTTP_X_FORWARDED_SERVER' => 'psgi.isolutions.com.au',
'PATH_INFO' => '/method_test_psgi.psp',
'QUERY_STRING' => '',
'REMOTE_ADDR' => '127.0.0.1',
'REMOTE_PORT' => 42878,
'REQUEST_METHOD' => 'GET',
'REQUEST_URI' => '/method_test_psgi.psp',
'SCRIPT_NAME' => '',
'SERVER_NAME' => 0,
'SERVER_PORT' => 5000,
'SERVER_PROTOCOL' => 'HTTP/1.1',
'plack.request.body' => bless( {}, 'Hash::MultiValue' ),
'plack.request.body_parameters' => [],
'plack.request.query' => bless( {}, 'Hash::MultiValue' ),
'plack.request.query_parameters' => [],
'plack.request.upload' => bless( {}, 'Hash::MultiValue' ),
'psgi.errors' => *::STDERR,
'psgi.input' => $VAR1->[11][1],
'psgi.multiprocess' => !!0,
'psgi.multithread' => !!0,
'psgi.nonblocking' => !!0,
'psgi.run_once' => !!0,
'psgi.streaming' => !!1,
'psgi.url_scheme' => 'http',
'psgi.version' => [
1,
1
],
'psgix.harakiri' => !!1,
'psgix.input.buffered' => !!1,
'psgix.io' => bless( \*Symbol::GEN322, 'IO::Socket::INET' )
}
],
[
'etag',
undef
],
[
'filename',
'/home/aspeer/Development/pm-WebDyne/method_test_psgi.psp'
],
[
'finalize',
undef
],
[
'finfo',
bless( [
64768,
535165,
33188,
1,
1000,
1000,
0,
1220,
1773188827,
1773046578,
1773046578,
4096,
8
], 'File::stat' )
],
[
'form_parameters',
$VAR1->[26][1]{'plack.request.body'}
],
[
'forwarded_for',
'216.73.216.5'
],
[
'fragment',
undef
],
[
'handler',
'default-handler'
],
[
'headers',
bless( {
'accept' => '*/*',
'accept-encoding' => 'gzip, br, zstd, deflate',
'connection' => 'Keep-Alive',
'host' => '127.0.0.1:5000',
'user-agent' => 'Mozilla/5.0 AppleWebKit/537.36 (KHTML, like Gecko; compatible; ClaudeBot/1.0; +claudebot@anthropic.com)',
'x-forwarded-for' => '216.73.216.5',
'x-forwarded-host' => 'psgi.isolutions.com.au',
'x-forwarded-server' => 'psgi.isolutions.com.au'
}, 'HTTP::Headers::Fast' )
],
[
'header_only',
undef
],
[
'headers_in',
$VAR1->[35][1]
],
[
'headers_out',
bless( {
'content-type' => 'text/html'
}, 'HTTP::Headers::Fast' )
],
[
'host',
'127.0.0.1:5000'
],
[
'hostname',
0
],
[
'https',
undef
],
[
'http_version',
'HTTP/1.1'
],
[
'id',
undef
],
[
'if_modified_since',
undef
],
[
'if_none_match',
undef
],
[
'input',
$VAR1->[11][1]
],
[
'is_ajax',
!!0
],
[
'is_main',
1
],
[
'location',
''
],
[
'log_error',
!!1
],
[
'main',
undef
],
[
'media_type',
'text/html'
],
[
'method',
'GET'
],
[
'mtime',
1773046578
],
[
'multipart_parameters',
$VAR1->[26][1]{'plack.request.body'}
],
[
'next',
undef
],
[
'notes',
{}
],
[
'origin',
undef
],
[
'output_filters',
undef
],
[
'path',
'/method_test_psgi.psp'
],
[
'path_info',
'/method_test_psgi.psp'
],
[
'path_parameters',
undef
],
[
'pool',
bless( {
'_CGI' => bless( {
'.globals' => {
'DEBUG' => 0,
'DISABLE_UPLOADS' => 0,
'FATAL' => -1,
'HEADERS_ONCE' => 0,
'NO_NULL' => 1,
'NO_UNDEF_PARAMS' => 0,
'NPH' => 0,
'PARAM_UTF8' => 0,
'POST_MAX' => 524288,
'USE_CGI_PM_DEFAULTS' => 1,
'USE_PARAM_SEMICOLONS' => 0
},
'keywords' => []
}, 'WebDyne::CGI::Simple' ),
'_cwd' => '/home/aspeer/Development/pm-WebDyne/',
'_notes' => $VAR1->[57][1],
'custom_response' => {},
'document_default' => '/home/aspeer/Development/pm-WebDyne/lib/WebDyne/index.psp',
'document_root' => '/home/aspeer/Development/pm-WebDyne',
'env' => $VAR1->[26][1],
'filename' => '/home/aspeer/Development/pm-WebDyne/method_test_psgi.psp',
'handler' => 'default-handler',
'headers_out' => $VAR1->[38][1],
'register_cleanup' => [
undef
],
'req' => bless( {
'env' => $VAR1->[26][1],
'headers' => $VAR1->[35][1],
'request_body_parser' => bless( [
[
[
'application/x-www-form-urlencoded',
'HTTP::Entity::Parser::UrlEncoded',
undef
],
[
'multipart/form-data',
'HTTP::Entity::Parser::MultiPart',
undef
]
],
1048576
], 'HTTP::Entity::Parser' )
}, 'Plack::Request' ),
'res' => bless( {
'status' => 200
}, 'Plack::Response' ),
'select' => bless( \*Symbol::GEN323, 'IO::String' ),
'uri0' => '/method_test_psgi.psp'
}, 'WebDyne::Request::PSGI' )
],
[
'preferred_charset',
undef
],
[
'preferred_encoding',
undef
],
[
'preferred_language',
undef
],
[
'preferred_media_type',
undef
],
[
'prev',
undef
],
[
'print',
1
],
[
'protocol',
'HTTP/1.1'
],
[
'query_parameters',
$VAR1->[26][1]{'plack.request.query'}
],
[
'query_string',
''
],
[
'referer',
undef
],
[
'remote_address',
'127.0.0.1'
],
[
'remote_host',
'127.0.0.1'
],
[
'remote_port',
42878
],
[
'remote_user',
undef
],
[
'request_time',
undef
],
[
'route',
undef
],
[
'scheme',
'http'
],
[
'script_name',
''
],
[
'secure',
!!0
],
[
'sendfile',
undef
],
[
'send_http_header',
undef
],
[
'server_name',
0
],
[
'server_port',
5000
],
[
'session',
undef
],
[
'session_id',
undef
],
[
'status',
200
],
[
'status_line',
'200 OK'
],
[
'unparsed_uri',
'/method_test_psgi.psp'
],
[
'uploads',
$VAR1->[26][1]{'plack.request.upload'}
],
[
'uri',
bless( do{\(my $o = 'http://127.0.0.1:5000/method_test_psgi.psp')}, 'URI::http' )
],
[
'url',
bless( do{\(my $o = 'http://127.0.0.1:5000/method_test_psgi.psp')}, 'URI::http' )
],
[
'user',
undef
],
[
'user_agent',
'Mozilla/5.0 AppleWebKit/537.36 (KHTML, like Gecko; compatible; ClaudeBot/1.0; +claudebot@anthropic.com)'
],
[
'write',
1
]
];
CGI
$VAR1 = bless( {}, 'Hash::MultiValue' );
$VAR1 = bless( {
'.globals' => {
'DEBUG' => 0,
'DISABLE_UPLOADS' => 0,
'FATAL' => -1,
'HEADERS_ONCE' => 0,
'NO_NULL' => 1,
'NO_UNDEF_PARAMS' => 0,
'NPH' => 0,
'PARAM_UTF8' => 0,
'POST_MAX' => 524288,
'USE_CGI_PM_DEFAULTS' => 1,
'USE_PARAM_SEMICOLONS' => 0
},
'keywords' => []
}, 'WebDyne::CGI::Simple' );