1package Apache::ASP::CGI::Test; 2 3use Apache::ASP::CGI; 4@ISA = qw(Apache::ASP::CGI); 5 6use strict; 7 8sub init { 9 my $self = shift->SUPER::init(@_); 10 $self->OUT(''); 11 $self; 12} 13 14sub print { 15 my $self = shift; 16 my $data = join('', map { ref($_) =~ /SCALAR/ ? $$_ : $_; } @_); 17 my $out = $self->OUT || ''; 18 $self->OUT($out.$data); 19} 20 21sub test_header_out { 22 (shift->test_parse_out)[0]; 23} 24 25sub test_body_out { 26 (shift->test_parse_out)[1]; 27} 28 29sub test_parse_out { 30 my $self = shift; 31 my $out = $self->OUT; 32 if($out =~ /^(.*?)\s*\n\s*\n\s*(.*)$/s) { 33 my($header, $body) = ($1, $2); 34 } else { 35 ($out, ''); 36 } 37} 38 391; 40