package Apache::MyRequest;

use Apache ();
use strict;
use vars qw(@ISA);
@ISA = qw(Apache);

sub new {
    my($class, $r) = @_;
    $r ||= Apache->request;
    return bless {
	'_r' => $r,
	'data' => [],
    }, $class;
}

sub print {
    my $self = shift;
    push @{$self->{data}}, @_;
}
 
sub rflush {
    my $self = shift;
    $self->SUPER::print("MyDATA:", @{$self->{data}});
    $self->SUPER::rflush;
     @{$self->{data}} = ();
}

1;
__END__