dougm 01/11/21 12:53:32
Modified: perl-framework/Apache-Test/lib/Apache TestRequest.pm
Log:
add do_request method to allow for response read callbacks
Revision Changes Path
1.57 +6 -0
httpd-test/perl-framework/Apache-Test/lib/Apache/TestRequest.pm
Index: TestRequest.pm
===================================================================
RCS file:
/home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestRequest.pm,v
retrieving revision 1.56
retrieving revision 1.57
diff -u -r1.56 -r1.57
--- TestRequest.pm 2001/11/16 19:39:26 1.56
+++ TestRequest.pm 2001/11/21 20:53:32 1.57
@@ -80,6 +80,12 @@
eval { $UA ||= __PACKAGE__->new(@_); };
}
+sub do_request {
+ my($ua, $method, $url, $callback) = @_;
+ my $r = HTTP::Request->new($method, resolve_url($url));
+ $ua->request($r, $callback);
+}
+
sub hostport {
my $config = shift || Apache::Test::config();
local $config->{vars}->{scheme} =
