view release on metacpan or  search on metacpan

t/10methods.t  view on Meta::CPAN

    $msg = '' unless defined($msg);
    ++$test_num;
    print "not " unless $result;
    print "ok $test_num$msg\n";
    $result;
}

sub Request ($$$;$$@) {
    my($ua, $method, $url, $type, $contents, @headers) = @_;
    $url = 'http://127.0.0.1:' . $cfg->{'httpd_port'} . $url;
    my $req = HTTP::Request->new($method => $url);
    Test($req);
    $req->content_type($type) if defined($type);
    $req->content($contents) if defined($contents);
    $req->authorization_basic('foo bar', 'eoj');
    while (@headers) {
	my $key = shift @headers;
	my $val = shift @headers;
	$req->header($key => $val);
    }
    my $res = $ua->request($req);

t/20liprefs.t  view on Meta::CPAN

    $msg = '' unless defined($msg);
    ++$test_num;
    print "not " unless $result;
    print "ok $test_num$msg\n";
    $result;
}

sub Request ($$$;$$@) {
    my($ua, $method, $url, $type, $contents, @headers) = @_;
    $url = 'http://127.0.0.1:' . $cfg->{'httpd_port'} . $url;
    my $req = HTTP::Request->new($method => $url);
    Test($req);
    $req->content_type($type) if defined($type);
    $req->content($contents) if defined($contents);
    $req->authorization_basic('foo bar', 'eoj');
    while (@headers) {
	my $key = shift @headers;
	my $val = shift @headers;
	$req->header($key => $val);
    }
    my $res = $ua->request($req);