LWP-UserAgent-DNS-Hosts
view release on metacpan or search on metacpan
t/11_https.t view on Meta::CPAN
use strict;
use Test::More;
use Test::Fake::HTTPD 0.08;
use LWP::UserAgent;
use LWP::UserAgent::DNS::Hosts;
# server
plan skip_all => "disable SSL" unless Test::Fake::HTTPD::enable_ssl();
# client
for my $module (qw/ LWP::Protocol::https IO::Socket::SSL /) {
plan skip_all => "$module required" unless eval "use $module; 1";
}
sub _uri {
my ($uri, $httpd) = @_;
$uri = URI->new($uri);
$uri->port($httpd->port);
$uri->as_string;
}
( run in 0.449 second using v1.01-cache-2.11-cpan-4d50c553e7e )