如何使用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');