File Coverage

blib/lib/Apache/ASP/CGI/Test.pm

Criterion	Covered	Total	%
statement	20	21	95.2
branch	2	4	50.0
condition	2	2	100.0
subroutine	7	7	100.0
pod	0	5	0.0
total	31	39	79.4

package Apache::ASP::CGI::Test;

use Apache::ASP::CGI;
@ISA = qw(Apache::ASP::CGI);

use strict;

sub init {
    my $self = shift->SUPER::init(@_);
    $self->OUT('');
    $self;
}

sub print {
    my $self = shift;
    my $data = join('', map { ref($_) =~ /SCALAR/ ? $$_ : $_; } @_);
    my $out = $self->OUT || '';
    $self->OUT($out.$data);
}

sub test_header_out {
    (shift->test_parse_out)[0];
}

sub test_body_out {
    (shift->test_parse_out)[1];
}

sub test_parse_out {
    my $self = shift;
    my $out = $self->OUT;
    if($out =~ /^(.*?)\s*\n\s*\n\s*(.*)$/s) {
	my($header, $body) = ($1, $2);
    } else {
	($out, '');
    }
}

1;