view release on metacpan or  search on metacpan

t/basic.t  view on Meta::CPAN

ok($res->is_success);

$req->header('Authorization' => undef);
$res = $ua->request($req);
is($res->code, 401);

$auth = MIME::Base64::encode("user:passwd");

$req->header(Authorization => 'Basic ' . $auth);
# Then illegal credentials
$res = $ua->request($req);
is($res->code, 401);


#----------------------------------------------------------------
note "Check proxy...\n";

$ua->proxy(ftp => $base);
$req = HTTP::Request->new(GET => "ftp://ftp.perl.com/proxy");
$res = $ua->request($req);