#!perl
use strict;
use Apache::test;

my $r = Apache->request;
$r->send_http_header('text/plain');

eval {
    require Apache::Request;
};

unless (have_module "Apache::Request" and Apache::Request->can('upload')) {
    print "1..0\n";
    print $@ if $@;
    print "$INC{'Apache/Request.pm'}\n";
    return;
}

my $apr = Apache::Request->new($r);
printf "method => %s\n", $apr->method;
printf "hostname => %s\n", $apr->hostname;

#for ($apr->param) {
#    my(@v) = $apr->param($_);
#    print "param $_ => ", join ",", @v;
#    print $/;
#}