view release on metacpan or  search on metacpan

t/request.t  view on Meta::CPAN

use Apache::ASP::CGI;
&Apache::ASP::CGI::do_self( NoState => 1 );

__END__

<% use lib '.';	use T;	$t =T->new(); %>

<% 
if(%{$Request->ServerVariables()}) {
	$t->ok();
} else {
	$t->not_ok('could not get the environment / server variables');
}

# $Request->{Method}, defaults to GET
$t->eok($Request->{Method} eq 'GET', "\$Request->{Method} eq 'GET'");

%>

<% $t->done; %>