1N/A######################### End of black magic. 1N/A# Set up a CGI environment 1N/Ais $q->
query_string,
'game=chess;game=checkers;weather=dull;foo=bar',
"CGI::query_string() redux";
1N/A 'CGI::url(-relative=>1,-path=>1,-query=>1)';
1N/Ais join(' ',$q->param('keywords')),
'mary had a little lamb',
'CGI::keywords';
1N/Aok $q=
new CGI({'foo'=>'bar','bar'=>'froz'}),
"CGI::new() redux 2";
1N/Ais $q->
param('bar'),
'froz',
"CGI::param() redux 2";
1N/A# test tied interface 1N/Ais $p->{
bar},
'froz',
"tied interface fetch";
1N/A is $q->param('weather'), 'nice',"CGI::param() from POST"; 1N/A # params present, param and url_param should return true 1N/A ok !$q->param, 'param() is false if no parameters';