CGI-Info
view release on metacpan or search on metacpan
bin/testjson.pl view on Meta::CPAN
678910111213141516171819use
LWP::UserAgent;
my
$ua
= LWP::UserAgent->new();
$req
->header(
'content-type'
=>
'application/json'
);
$req
->content(
'{ "first": "Nigel", "last": "Horne" }'
);
my
$resp
=
$ua
->request(
$req
);
if
(
$resp
->is_success()) {
"Reply:\n\t"
,
$resp
->decoded_content,
"\n"
;
}
else
{
STDERR
$resp
->code(),
"\n"
,
$resp
->message(),
"\n"
;
}
979899100101102103104105106107108109110111112113114115116
local
%ENV
= (
GATEWAY_INTERFACE
=>
'CGI/1.1'
,
REQUEST_METHOD
=>
'GET'
,
QUERY_STRING
=>
'key%00=evil%00data&value=valid+data'
,
);
$info
= new_ok(
'CGI::Info'
);
my
$params
=
$info
->params();
is(
$params
->{key},
'evildata'
,
'NUL bytes in key removed'
);
is(
$params
->{value},
'valid data'
,
'Spaces correctly decoded'
);
};
subtest
'Max Upload Size Enforcement'
=>
sub
{
local
%ENV
= (
GATEWAY_INTERFACE
=>
'CGI/1.1'
,
REQUEST_METHOD
=>
'POST'
,
CONTENT_TYPE
=>
'application/x-www-form-urlencoded'
,
CONTENT_LENGTH
=> 1024 * 1024 * 600,
# 600MB
);
( run in 0.227 second using v1.01-cache-2.11-cpan-454fe037f31 )