perl - 如何使用 Test::WWW::Mechanize 进行授权

Question

我想用 Test::WWW::Mechanize 测试一个受 .htaccess 保护的页面，但我不知道如何发送该页面的凭据？我找不到可以处理这个问题的函数。

Answer 1

use Test::WWW::Mechanize;
my $mech = Test::WWW::Mechanize->new();
my ($user, $pass) = qw/user pass/;
$mech->credentials($user, $pass);
$mech->get_ok('http://example.com');