CGI-Info

 view release on metacpan or  search on metacpan

bin/testjson.pl  view on Meta::CPAN

6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
my $ua = LWP::UserAgent->new();
 
my $req = HTTP::Request->new(POST => 'https://localhost/cgi-bin/info.pl');
$req->header('content-type' => 'application/json');
$req->content('{ "first": "Nigel", "last": "Horne" }');
 
my $resp = $ua->request($req);
if($resp->is_success()) {
        print "Reply:\n\t", $resp->decoded_content, "\n";
} else {
        print STDERR $resp->code(), "\n", $resp->message(), "\n";
}

t/waf.t  view on Meta::CPAN

97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
        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 )