1use Apache::ASP::CGI; 2&Apache::ASP::CGI::do_self('NoState' => 1); 3 4__END__ 5 6<% use lib '.'; use T; $t =T->new(); %> 7 8<% 9 10use vars qw($ok); 11 12$ok = 0; 13my $script = "<\% \$ok++; %\>"; 14$Response->Include(\$script); 15$t->eok($ok == 1, "Could not increment \$ok"); 16 17$script = "<\% my \$ok = 'ok'; %\><\%= \$ok %\>"; 18my $out = $Response->TrapInclude(\$script); 19$t->eok($$out eq 'ok', "Could not print 'ok' in runtime TrapInclude()"); 20 21%> 22