从 LWP::UserAgent 到 Mojo::UserAgent 的匹配方法答案

【问题标题】：Matching methods from LWP::UserAgent to Mojo::UserAgent从 LWP::UserAgent 到 Mojo::UserAgent 的匹配方法
【发布时间】：2021-02-09 05:20:13
【问题描述】：

我需要将 LWP::UserAgent 转换为 Mojo::UserAgent 以支持异步调用。问题是我找不到与下面的 LWP::UserAgent 方法匹配的确切方法，例如，如何将以下 LWP 方法转换为 Mojo 的？非常感谢任何见解！

my $ua = new LWP::UserAgent ;

$ua->protocols_allowed( [ 'http', 'https' ] );

$ua->ssl_opts( 
 SSL_version=>'TLSv12', 
 verify_hostname=>0,  
 SSL_verify_mode=>SSL_VERIFY_NONE, 
 SSL_ca_file=>'ca_file.crt',
 SSL_cert_file=>'cert_file.crt',
 SSL_key_file=>'key_file.key',
 SSL_passwd_cb=> sub { return 'psswd'; }
);

$ua->credentials( $host_port, $realm, $user, $password ) ;

$ua->timeout( $timeOut ) ;

$ua->proxy( $theProxy ) ;

$ua->request( $requestObj );

【问题讨论】：

标签： perl lwp-useragent mojo-useragent

【解决方案1】：

通过阅读 LWP::UserAgent 和 Mojo::UserAgent 的文档页面，我可以看到以下内容：

$ua->protocols_allowed() : 此功能在Mojo::UserAgent 中不可用
SSL_version ：可以通过调用IO::Socket::SSL::SSL_version() 为Mojo::UserAgent 设置
verify_hostname ：如果需要验证，可以通过调用 IO::Socket::SSL::verify_hostname() 显式调用
SSL_verify_mode ：可以通过调用IO::Socket::SSL::set_defaults(SSL_verify_mode => $mode) 来设置
SSL_ca_file : Mojo::UserAgent 有一个方法 $ua->ca() 可以使用。
SSL_cert_file : Mojo::UserAgent 有一个方法 $ua->cert() 可以使用
SSL_key_file : Mojo::UserAgent 有一个方法 $ua->key() 可以使用
SSL_passwd_cb : 可以通过调用IO::Socket::SSL::set_defaults(SSL_passwd_cb => $cb) 来设置
$ua->credentials ：我认为这些可以通过构造一个Mojo::URL 对象并将其传递给相关的请求方法来设置。
$ua->timeout() : Mojo::UserAgent 有一个方法 $ua->connect_timeout() 可以使用
$ua->proxy() : Mojo::UserAgent 有一个方法 $ua->proxy() 可以使用。
$ua->request() : Mojo::UserAgent 有一个可以使用的方法 $ua->start() 和 $ua->start_p()。

【讨论】：